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SURVEILLANCE  RADAR  SYSTEMS  EVALUATION  MODEL  (SURSEM)  HANDBOOK 


1 INTRODUCTION 

1.1  Background 

This  handbook  constitutes  the  documentation  for  the  Surveillance  Radar  Systems 
Evaluation  Model  (SURSEM),  developed  by  the  Radar  Analysis  Staff  (Code  5308)  of  the 
Naval  Research  Laboratory.  This  documentation  has  been  sponsored  by  NAVSEA- 
SYSCOM  and  NISC,  with  the  objective  of  providing  the  Navy  with  a fully  described, 
user-oriented  computer  model  of  a surveillance  radar. 


1.2  Organization 

This  handbook  serves  two  basic  purposes;  it  reflects  the  current  capability  of  the 
computer  model,  and  it  provides  the  potential  user  with  instructions  for  its  independent 
use.  The  handbook  is  divided  into  four  sections.  The  first  section,  the  introduction, 
includes  a general  description  of  the  model,  followed  by  comments  concerning  its  growth 
potential.  Instructions  for  the  user  make  up  the  second  section,  which  gives  a complete 
description  of  the  input  parameters  and  printed  output.  This  section  also  includes  a test 
case  that  is  explained  in  detail.  The  third  section  contains  the  documentation  of  the 
individual  computer  subroutines.  Such  documentation  consists  of  an  analytical  descrip- 
tion, macro  and  micro  flowcharts,  a table  of  FORTRAN  variables  together  with  a de- 
scription and  units  used,  and  a FORl'RAN  listing  for  each  program  subroutine.  The 
fourth  and  last  section  consists  of  two  appendixes.  Appendix  A is  a FORTRAN  listing 
of  SURSEM  as  used  on  a PDF  DEC-10  time-sharing  system.  Appendix  B is  a description 
of  MTIMOD  (Moving  Target  Indicator  Modification),  a subprogram  designed  to  use  MTl 
signal-processing  techniques  to  calculate  the  signal-to-noise  ratio  in  a rain  and  chaff  en- 
vironment. MTIMOD  has  been  programmed  but  has  not  yet  been  fully  tested  or  incor- 
porated into  SURSEM. 


1.3  Model  Overview 

SURSEM  produces  radar  single-scan  and  cumulative  probability-of-detection  values 
as  a function  of  target  range  and  orientation.  The  radar  operates  within  a specified 
.scenario,  defined  by  the  user  to  include  the  target  to  be  detected,  up  to  nine  additional 
sources  of  jamming  radiation,  and  an  optional  environment  of  wind,  rain,  and  multipath. 
An  engagement  (in  the  limited  sense  of  a target  flying  into  the  detection  range  of  the 
stationary  surveillance  radar  along  a predetermined  course  and  the  radar  attempting  to 
detect  the  target  during  its  flight)  is  initiated  at  the  time  the  target  leaves  its  initial  posi- 
tion and  is  terminated  when  the  target  reaches  its  final  position. 
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KAl'I.AN,  (IKINDLAY,  AND  DAVIS 

SIIKSKM  has  iu-i'ii  constriu'U’d  as  a modilu'd  liiTU*-slcp  model.  The  lime  siei)s  in- 
volved are  determim'd  hy  th(‘  elapsed  time  hetw(‘en  radar  scans  illuminatinfj  the  target. 

The  surveillance  radar  under  examination  is  characterized  hy  its  radar  scan  modes.  A 
radar  si  an  mode  is  a device  definint;  radar  operating  characteristics  for  the  illumination 
of  a specific  t>eometrical  region.  Typical  radar  scan  modes  include  lons-rantje  search: 
lu^jh  an>;le,  low-enerny  search;  Inirnthrouffh;  and  horizon  scan.  At  the  onsi't  of  the  en 
liauement  (i.e.,  when  Ihe  target  leaves  its  initial  position),  the  time  at  which  each  opera- 
tional radar  scan  mode  will  first  illuminate  the  target  is  determined.  The  mode  correspond 
mg  to  the  smallest  time  is  selected  as  the  initial  scan  mode,  and  its  time  of  occurrence 
hecomes  the  cum  nt  engagimient  time. 

The  position  and  orii'iitation  of  the  target  at  the  current  time  are  calculated  umli'i 
the  assumption  that  llie  target  follow's  a linear  flightpath  at  constant  speed.  Tlie  positions 
and  orientations  of  any  other  defined  targets,  which  are  treated  as  additional  sr  arccs  of 
jamming  radiation,  are  deti'rmined  in  the  same  manner. 

The  probability  that  the  ratlar  will  detect  the  target  during  the  selected  radar  sian  is 
c.ilculated  by  means  of  the  user-designated  Marcum-Swerling  cross-section  model  [1  1. 
Sl'RSKM  is  concenied  with  the  evaluation  of  surveillance  radars  and  has  no  [irovision  for 
target  tracking.  Scan-to-scan  independence  is  assumi'd  in  the  calculation  of  the  cumul.i 
live  probability  of  detection. 


1. 1 Future  Growth 

SlIRShiM  will  change  and  expand  as  the  result  of  ajiplication  to  an  increasing  vara  t\ 
of  problems.  Some  areas  of  interest  for  the  future  modification  of  Sl'RSK.M  have  aln  ads 
been  identified  and  include  the  following: 

1.  Signal  processing— integration  of  M'l'I.MOD  into  Sl'RSK.M  as  mentioned  above, 
as  well  as  the  development  and  incorporation  of  other  signal-processing  options, 
such  as  iHilse-compression  anil  jnilse-doppler  techniiiues, 

2.  Detection  confirmation  — greater  detail  in  the  modeling  of  the  process  that  con 
firms  the  detection  of  a potentially  det(*ctable  target, 

d.  Area  clutter— more  faithful  rendition  of  the  effects  of  si>a  state,  shadowing.  ;ind 
[Kilarization  on  the  area-clutter  return  over  a wide  range  of  pulse  widths, 

■1.  Refractive-index  models— inclusion  of  an  exponential  refractive-index  mod. -I. 

5.  Point  signals-  -development  of  an  emjiirical  point-sealterer  model  and  modeling 
of  polarization  effects, 

6.  Volume  clutter— inclusion  of  a chaff  model, 

7.  Antenna  j)attern  — imjirovi'd  sidelobe  modeling  and  computation  of  the  hori- 
zontal gain  iialt(*rn  factor  when  considering  target  detection  with  discrele- 
beam-forming  radar. 

Modifications  of  the  model  will  be  reflected  in  revisions  to  this  handbook.  Rev  ised 
pages  and  new  sections  will  be  sent  to  any  us«*r  who  requests  this  information. 
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Ihf  autlior;  ol  this  handhook  arc  available  on  a limited  basis  lor  consultation  on 
problems  related  to  the  compilation  and  exi'cution  of  the  mod.d.  We  are  also  intmvsted 
in  ncKotiatintJ  with  potential  sponsors  for  the  development  of  tb.'  model’s  trrowtb  poien 

tiid  and  in  some  aspects  of  |H‘rformint:  analyses  of  radar  systems  tbrouf-b  the  application 
of  the  model.  ' 


1.5  Acknowledtiments 
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KAPLAN,  GRINDLAY,  AND  DAVIS 

2.  INSTRUCTIONS  FOR  THE  USER 

2.1  Input 

SURSEM  is  dosif,mod  to  generate  radar  single-sean  and  cumulative  probability-of- 
detection  valiu-s  as  a function  of  target  range  and  orientation  in  a specified  environment. 
An  engagemi-nt  scenario  consists  of  a radar,  one  target  to  be  detected,  and  up  to  nine 
additional  sources  of  jamming  radiation  set  in  a specified  environment.  The  required 
input  information  is  divided  into  the  definitions  of  radar,  targets,  and  an  environment, 
together  with  several  output  control  parameters.  Each  of  these  is  considered  in  detail. 

2.1.1  Radar 

.\  radar  is  described  by  specifying  11  basic  parameters  followed  by  16  descriptors 
for  each  of  up  to  15  o()erational  radar  scan  modes.  Typical  radar  scan  modes  include 
long-range  search;  high-angle,  low-energy  search;  burnthrough;  and  horizon  scan.  The 
11  ba.sic  radar  input  parameU'rs  are  — 

1.  Radar  frequency  in  megahertz 

2.  Antenna  pattern  indicator  (0  or  1,  where  0 = pencil  beam  and  1 = cosecant- 
squared  beam) 

;i.  Receiver  noi.se  in  dB 

4.  Horizontal  3-dB  beamwidth  in  degrees 

5.  Vertical  3-dB  beamwidth  in  degrees 

6.  One-way  antenna  gain  in  dB 

7.  One-way  sidelobe  level  in  dB  down  from  peak 

8.  Receiver  line  loss  in  dB 

9.  Transmitter  line  loss  in  dB 

10.  Number  of  scan  modes  (to  be)  defined,  not  to  exceed  15 

11.  Linear  polarization  in  degrees,  from  0 to  90,  where  0°  = horizontal  and  90°  = 
vertical 

Each  radar  scan  mode  (as  specified  in  item  10  above)  is  described  by  the  following 
16  input  parameters: 

1.  Lower  limit  of  elevation-angle  coverage  in  degrees 

2.  Uppt'r  limit  of  elevation-angle  coverage  in  degrees 

3.  Peak  power  in  megawatts 

4.  Pulse  length  in  microseconds 

5.  Interlook  period  (time  between  scans)  in  seconds 

6.  .Scan  offset  (relative  to  radar  initialization)  in  seconds 
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7.  Instrumented  ranjje  in  nautieal  miles 

8.  NU>de-dei»»Mident  loss  m dB 
5).  Number  of  pulses  integrated 

10.  Minus  logio  (fal.se-alarm  probability);  for  example,  if  the  false-alarm  prolialiility 
is  10  it  would  be  entered  here  as  fi 

11.  Compressed-pulse  lenjtth  in  mieros<‘i'onds 

12.  S»'a  clutter  improvement  factor  in  dB 

10.  Intermediate-frequency  bandwidth  in  megahertz;  if  0 is  entennl.  bandwidth  in 
sc't  at  1.0/(compressed-pulse  len^jlh) 

11.  Mode-de|H>ndent  frequency  increment  in  metjahertz;  if  nonzero,  the  effective 
horizontal  and  vertical  beamwidths  and  antenna  ^ain  for  this  scan  mode  arc 
also  affected  (see  description  of  the  SURSKM  Kxecutive  Routine) 

15.  Blanking  time  in  microseconds;  if  0 is  entered,  blanking  time  is  set  at  pulse 
length 

10.  Rain-clutter  improvement  factor  in  dB 

Radar  scan  modes  are  numbered  in  ascending  order  as  they  are  defined,  beginning 
with  number  1. 

The  location  of  the  radar  platform,  whii-h  is  assumed  to  remain  stationary  throughout 
an  engagement,  and  the  antenna  height  above  sea  level  are  sivcified  by  threi'  radar  posi- 
tion input  parameters  (in  thousands  of  feet); 

1.  X position  coordinate 

2.  y position  coordinate 

3.  z position  coordinate  (antenna  height  above  si'a  h'vel) 

It  is  often  convenient  to  let  the  radar  platform  be  located  at  the  origin  (0.0)  (if  the 
scenario  coordinate  system. 

2.1.2  Targets 

The  model  can  accommodate  from  one  to  nine  moving  obji'cts  calk'd  targets;  how 
ever,  only  the  primary  target  (the  first  target  definc'd)  is  used  in  the  calculation  of  the 
radiir  detection-probability  values.  Additional  targets  can  be  defiiu'd  as  jammers.  Kach 
target  is  described  by  the  following  13  input  parameU'rs: 

1.  .T  coordinate 

2.  y coordinate  v initial  target  position  in  thousands  of  feet 

3.  z coordinate  J 

4.  Time  in  seconds  at  which  target  leaves  its  initial  position 
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8. 

9. 

10. 

11. 

12. 

l.L 


terminal  target  position  in  thousands  of  feel 


5.  .V  coordinate 
(i.  >’  coordinate 
7.  ^ coordinate 

Time  in  seconds  at  which  target  reaches  its  terminal  position 
1 lead-on  radar  cross  section  in  square  meters 
Broadside  ratlar  cross  section  in  square  meters 
Minimum  radar  cross  section  in  square  meters 
.lamming  power  density  in  watts  per  megahertz 


Marcuin-Swerling  cross  section  model  number  (0,  1,  2,  3,  or  4)— see  discussion 
of  Subroutine  MARSWR  for  a description  of  cross-section  models 


All  targets  are  assumed  to  follow  constant-speed,  linear  flight  paths  calculated  from 
the  initial  and  final  positions  and  times  specified  above. 


2.1..‘l  Hni'ironmcnt 

The  effects  of  wind,  rain,  and  multipath  on  the  detection  capability  of  the  radar  are 
included  in  the  model  through  the  specification  of  the  following  environmental  input 
parameters: 

1.  Wind  speed  in  knots 

2.  Height  of  wind-speed  measurement  in  thousands  of  feet 

3.  Multipath  indicator  (0  or  1,  where  0 = no  multipath  and  1 = multipath) 

4.  Rainfall  rate  in  millimeters  per  hour 

The  wind  speed  and  the  height  at  which  it  is  measured  are  used  to  determine  the 
sea  state  in  the  calculation  of  the  sea-clutter  return.  The  rainfall  rate  permits  the  calcula- 
tion of  the  rain-attenuated  signal  energy  and  the  contribution  of  rain  backscatter  to  the 
total  noise  energy. 


2.1.1  Output  Control 

'I’he  output  lontrol  i)arameters  determine  the  amount  of  information  to  be  printed 
as  the  result  of  each  engagement  and  select  the  radar  scan  modes  (from  those  defim'd  as 
radar  in|)uts)  to  be  considered  for  use  during  the  engagement.  A line  of  output  data 
(discussed  in  the  following  section)  can  be  printed  for  each  radar  scan  performed  during 
which  the  target  was  within  the  instrumented  range  of  the  radar. 

rhe  SIX  output  control  input  parameters  are  as  follows: 

1.  I.ower  hound  for  which  single-scan  probability  of  detection  will  be  printed. 

2.  I'luvr  hound  for  which  single-scan  probability  of  detection  will  be  printed. 
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I«irn<>sl  fiinuil;itl\'(‘  |>rol);il)ilily  of  dc'lci  tion  In  l)c  priiitcd.  \\  lien  llu*  l Uinul.ii  ivi- 
l>rol);d)ility  tins  vahn'.  no  inori'  oiilpul  wdl  he  printed  for  the  <'iu:;u;i  nii-nt 

I.  l.int'  print  indu-ator.  For  .‘xaniple,  if  tins  valiu'  wen'  f),  then  ever\  fifth  hm  of 
>;enerated  oiH[uit  vvouhl  Ih‘  |>rmted.  The  option  to  suppri's.s  «//  printed  oiii|un 
is  available  prior  to  scenario  input,  as  noti'd  in  Fxainple  1. 

f).  Total  luiinber  of  radar  scan  inodes  (from  those  defined  ejulier  dnnntt  radar 
input  I to  lu'  Used  ihirin^t  the  ent;a;;einent.  If  all  scan  modi's  defined  are  to  be 
used,  a zero  ina\’  Ix'  entereil  here  and  a single  number  (dummy  I for  (he  ni'xt 
l>aranu'ter. 

(i.  .\etiial  ratlar  scan  mod*'  numbers  to  bi'  iis*'d  diirmt,*  th*'  <'nfj;if;<'m*'nt . m asi  eiul 
mu  ordi'r.  The  first  scan  mod*'  di'fmed  is  modi'  1 . the  si'eond  mod*'  di'fim'd  is 
modi'  ‘2.  t'te.  This  option  allows  a si'rn's  of  t'nu:iu*‘mi'nts  to  be  lu'rformed  usinu 
a luimbi'r  of  scan  mo*l*'  I'ombmations  without  n'di'fininu  radar  inputs  for  I'aeii 
run.  S*'*'  Kxampli'  1 for  di'tails. 
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2.2  Output 

■All  rnciifii'inrnt  beums  at  the  lime  ihi'  (irimarv  taru'i't  li'avi's  its  initial  position  I'roiu 
this  time  until  th*'  tun*'  th*'  laru*'t  reaehi's  its  terminal  position,  th*'  luoiti'l  i-onsideis  *'.i,  h 
railar  scan  moil*'  and  *-orr*'spondinu  scan  tun*'  in  turn  and  s*'l*'*'t.s  for  o|'*'ration  th*'  nuule 
that  will  lu'xt  illuminat*'  th*'  taru*'t  For  *'a*  h sian  nuul*'  s*'l*'*  t*'d.  th*'  followinu  1 ">  out 
init  Valia'S,  eonstitutmu  a liiu'  of  output  data,  ar*'  U‘'''erat*'*f; 

Output  ncscn/ition 

INOFX  Sean  eountt'r 

MODF  ,S*-an  mod*'  numbi'r 

TIMK  Tim*'  of  sean  o*-eurreiu*'  in  s«'*-*)iuis  (relativ*'  to  *'nuau*'iu*'iit  nutili.'.a- 

tion  ;it  tim*'  0) 

H.ANt'iF.  Slant  ranu*'  of  tarui'l  from  radar  in  thousands  of  fi't't 
HV  Kli'vation  anu’l*'  of  taru*'l  in  di'urt'i's 

HU  .\/,inuith  anuli'  of  taru*'t  in  ili'^n'i'i’s 

SIOM.A  I'arui't  i-ross  sei  tion  in  sipiar*'  im'tt'is 

FC'TH  Multij'ath  patf*'rn  |>ropauation  fai’torin  ilH  (ealeulati'd  by 

subroutine  .\Und’'TII) 

KSKl  Siuiial  en«'ru>'  in  dFi  (with  ri's|a'et  to  a joul*') 

N.AMH  .Ambii'iil  noi.si'  in  dB  (with  ri'speet  to  a joutel 

NCI/T  (Tuttt'r  eneruy  in  dH  (with  r*’s|n'et  to  ;i  jouU'l 

N.l.AM  damminu  I'lU'ru.y  in  dif  (with  r*'.s|i*'*'t  to  a joule) 

F.;N  Siunal  eneruy-to  noise  I'lieruy  ratio  m ilH 

BOSS  Sinfjl('-s*'an  pr*>b;il)iiity  of  di'li'etion 

IMX'l'M  (’umulativ*'  (irobability  of  d*'ti'*-tion 

Th*'  s*'(|u*'ntial  ueni'ration  of  output  data  for  *'ai  h oei'urreiu'*'  of  s*>l*'et*'d  sean  luoih's 
ti'rminates  wla'ii  th*'  taru*'t  rf'a*-hes  its  final  position,  th*'r*'by  I'lidinu  th*'  *'uuauem*'nt 
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SUKSKM  has  Iwcn  iisod  at  th»>  Naval  Research  I^»boralory  both  in  batcli  proi'essinn 
on  a riK'-.'lHOO  computer  and  on  several  time-sharing  systems,  including  the  C’DC 
KKONOS  anil  an  m-house  I’DP  DKC-10  system.  This  example  is  directed  toward  the 
time-sharing  version  of  SURSKM.  The  difference  between  the  batch  and  time-sharing 
versions  is  in  the  input -output  format  structures.  Modifications  applicable  to  the  opera- 
tion of  the  hatch  version  are  noted  in  the  next  section,  “Batch  Processing.”  .Appendix  ,\ 
contains  a listing  of  the  time-sharing  version  of  SURSEM. 


Example  1 

l.ieis  IS  SUM5>fcM>  till:  NflL  SUilVt  I t L ifiCt  KaCii.t  STSIEm  EVALUftTICN  MCL'tl. 

2.00  YOU  XE‘T.'  A DESCR I PI  I U'4  OF  TuE  INPUT  VAHuuES?  ^ 

;l.  CC  YOU  sA-4l  OEIAILEO  0U1PUT7  T ES 

1.  TTPt  11  'iASIC  PAOAR  INPUTS:  35Ctl  1 5 1W  1.3  39.  7 2b  1.5  2 1 i5 

■T.  TY^’fc  ItiPUlS  FUK  mode  l:  -.AS  .85  2.5  1?  6 H ?<tl  3 1 6 .05  ;l  20  0 (l 


ti.  TYPE  ShIP/RADAft  POSITION  COORDINATES  (XtY.Z)  IN  «FT:  0 0-1 

7.  TYPE  NilM.iEH  OF  TAHOE  T5:  1 


8.  TYPE 

13 

parameters 

FOR  TARCEI 

1 : 

240 

0 . 

1 0 30  0 . 1 

720  1 1 100 

r 

J IT  Pc 

A ENVIPONHENTAI 

PARAMETERS: 
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1 1 

' 10.  lU'E 

Otili-ui  CONII  CL 
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1 1 

4 1 

1 

11.  INDEX 
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9H 
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1 • tJ 
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-350. 

20.50  0.000 

1 1. 
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-34. 

- 
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0.000 

i If).  1 

36.1.1) 

8 .t)  1 

1.0 
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180. 

-350. 
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H>. 

1 

13  5.2 

0.0 

-28. 

- 

199.  -350. 

k'  • i' 

17.  1 

134. 

P .02 

1.0 

- 

174. 

-350. 

■"  8 • ^ ? l?  • / il  *7 

18. 

1 

128. C- 

0.0 

-23. 

- 

199.  -350. 

0.220 

;i-  ' i!».  . 1 

<-'8.2 

P.k'3 

1 *0 

- 

16  7. 

-350  . 

“ ? • 3*^  i' 

1 • 

1 

12  1 .1' 

0 .0 

-17. 

- 

199.  -450. 

kJ  • 1^  r 
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Example  1 Continued 


•>l. 

22. 

-> 

1 

p 3 -.'4 

114..' 

0 .0 

1 

' ICO  . 
-11. 

— 36k'.  ,1.77  O.OOl 

199.  -3b.’.  0.002 

23. 

21. 

f 

1 

4'h.P  3.M4 

llW.,' 

3 . 

1.0 

- 1 4 . 

-r,. 

-360.  9 . 90  r . 3 1 2 

199.  - I b 0 . .’.233 

25. 

2f). 

1;’ 

1 
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1 / ' 

'0 . 3 

1..' 

- 14  7. 
- 0 . 
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9 i .V 
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I.'O 
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16 

1 
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3 . ;; 

1.0 

- 1 3 e . 

8. 

-lEiO.  2S.18  1.0.6- 

193 . -3bO.  1.;'.',' 
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32. 

?? 

1 

S52.H  J.37 

n.i 

0.0 

1 .0 

- 133- 

9. 

-3  52.  2 7 . 7 4 l.'Ol'O 

199.  - 3 b 0 . 1.300 
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31. 

26 

1 
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/?.l' 

0.0 

1 .0 

-131. 

9. 

-134.  23.47  1.000 

199.  -350.  1.000 

35. 

3ti. 

J.1 

1 

6 2 2 . P 0 . 3 

6 b • 3 

0.3 

1.0 

- 133- 

6 . 

-182.  2b. 9b  I.PJO 

199.  -350.  1.000 

■ )7. 
3S. 

34 

1 

824.il  11.09 

bS..' 

0 .3 

1*3 

-143. 
- 6 . 
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199.  -3b0.  0.992 

3‘*. 

10. 

36 

1 

e 4 9 . 3 t>  . 1 3 
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1.3 

-148. 
-12  . 

-179-  10.34  1.000 

190.  -359.  0.307 

n. 
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4-.'' 

1 
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KxampU*  1 is  the  printed  output  from  a PDP  DEC-10  system  time-sharing  terminal 
for  a sample  run  of  SURSEM.  Line  numbers  have  been  added  at  the  left  of  the  listing 
for  reference,  and  user  responses  have  been  underlined.  Immediately  on  initiating  execution. 
SURSEM  prints  a line  of  identification  (line  1)  and  asks  the  user  if  he  needs  a description  of 
the  input  variables  (line  2).  The  user  types  either  YES  or  NO.  A YES  answer  will  pro- 
duce a descriptive  listing  of  the  radar,  target,  environment,  and  output  control  parameters 
discussed  earlier.  A NO  answer,  as  shown  here,  causes  the  program  to  immediately  print 
line  0.  Dt'tailed  output  consists  of  a line  of  15  output  values  for  each  radar  scan  per- 
formed, modified  by  the  output  control  parameters  specified  in  line  10.  A NO  answer 
results  in  no  output  values  printed  at  the  terminal.  Line  4 instructs  the  user  to  enter  the 
11  basic  radar  input  parameters  described  earlier  in  the  section  on  radar  input.  In  this 
example  the  parameter  values  as  entered  are  separated  by  spaces.  Line  5 requests  the 
16  input  parameters  to  define  scan  mode  1.  If  more  than  one  scan  mode  is  designated 
as  the  tenth  basic  input  parameter  in  line  4,  the  program  requests  inputs  for  scan  mode  2 
after  receiving  the  16  entries  in  line  5 for  scan  mode  1 and  continues  requesting  scan 
mode  inputs  until  all  scan  modes  are  defined.  Here  only  a single  scan  mode  is  to  be  de- 
fined, after  which  the  program  continues  to  line  6,  an  instruction  for  the  user  to  enter 
the  radar  position  coordinates.  Line  7 requests  the  number  of  targets  to  be  defined. 

Line  8,  in  reply,  instructs  the  user  to  enter  a set  of  13  input  target  parameters  for  each 
target  designated  in  line  7,  one  set  at  a time.  Once  all  target  information  has  been 
entered  (only  one  set  in  this  example),  the  program  requests  the  environmental  param- 
eters to  be  entered  in  line  9.  The  last  input  information,  the  output  control  parameters, 
is  requested  in  line  10.  Once  these  six  values  have  been  entered,  the  scenario  has  been 
defined  and  the  engagement  begins. 

Prior  to  the  occurrence  of  the  initial  selected  radar  scan  mode,  the  output  heading, 
lines  11  and  12,  is  printed.  Thereafter  a line  of  output  values  is  printed  out  at  the  ter- 
minal after  each  radar  scan  occurrence,  subject  to  the  conditions  defined  by  the  output 
control  parameters.  If  no  detailed  output  is  desired,  indicated  by  a NO  answer  to  line  3, 
both  the  printing  of  the  output  heading  and  scan  output  values  are  omitted.  At  the  con- 
clusion of  the  engagement,  line  47  is  printed,  offering  the  user  the  option  to  save  the 
computer  output  data  (from  all  scans  actually  performed  for  which  the  single-scan  prob- 
ability of  detection  equals  or  exceeds  0.001)  on  magnetic  tape  or  disc  file.  (See  discus- 
sion of  the  SURSEM  Executive  Routine  and  program  listing  in  Appendix  A regarding 
specification  of,  and  writing  on,  magnetic  tape  or  disc  file  for  data  storage.)  Lines  48 
through  50  offer  the  user  the  opportunity  to  perform  another  engagement  using  various 
parts  of  the  previously  defined  scenario,  thereby  limiting  the  amount  of  additional  input 
required.  A response  of  YES  to  line  48  results  in  the  program  cycling  back  to  line  9 and 
continuing  on  for  another  engagement  from  that  point.  Thus  the  scenario  would  retain 
the  radar  and  target  parameters  previously  defined  and  require  only  environmental  and 
output  control  parameters  (including  scan  modes  to  be  used)  to  be  entered.  An  answer 
of  NO  to  line  48  and  YES  to  line  49  results  in  a transfer  to  line  6 and  a request  for  new 
radar  position  parameters.  In  this  case  only  the  basic  radar  and  scan  mode  inputs  from 
the  preceding  scenario  are  retained.  Then  the  program  continues  through  lines  7,  8,  9. 

10,  etc.,  as  before.  A response  of  NO  to  lines  48  and  49  and  a response  of  YES  to  line 
50  transfer  the  user  to  line  1 at  the  beginning  of  the  program  to  define  a completely  new 
scenario.  A NO  answer  to  line  50  terminates  the  program.  Note  the  first  YES  answer  to 
lines  48  through  50  results  in  a transfer  to  the  corresponding  location  in  the  input  se- 
quence, and  all  parts  of  the  scenario  defined  after  that  point  in  the  input  sequence  must 
be  redefined. 
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In  Kxamplt*  1,  the  output  index  numbers  correspondint;  to  lines  13  through  20  are 
all  1.  Kaeh  scan  performi'd  must  result  in  a single-si  an  probability  of  detection  of  at 
least  .001  before  it  is  stored  for  possible  transfer  to  magnetic  tape  or  disc  file  at  the  con- 
clusion of  the  engagement.  Currently,  provision  is  made  to  store  a table  of  up  to  4000 
such  values  during  the  course  of  the  engagement.  The  index  printed  is  actually  the  index 
used  to  create  the  tabli , which  starts  with  an  index  of  2,  and  its  value  is  step(>ed  up  only 
when  a detection  value  meets  the  .001  criterion  and  is  stored.  However,  the  results  of  all 
scans  performed  are  printed  (subject  to  output  control  parameter  specifications).  In  this 
example,  the  first  four  full  lines  of  output,  all  with  index  1,  have  corresponding  single- 
scan probabilities  of  detection  less  than  .001  and  thus  were  printed  but  not  stored. 

Lines  21  and  22,  with  an  index  of  2,  have  a corresponding  single-scan  probability  of  de- 
tection of  .002,  and  at  this  point  the  output  control  specification  to  print  only  every 
(ourth  line  of  possible  output  comes  into  effect,  along  with  storage  of  the  detection  data, 
so  that  the  next  scan  printed,  lines  23  and  24,  has  an  index  of  6. 


2.4  Batch  Processing 

The  scenario  input  is  accomplished  in  a batch-processing  operation  through  the  us(> 
of  data  input  cards  that  follow  the  program  card  deck.  The  information  required  is  the 
same  as  in  the  time-sharing  version,  and  the  same  options  are  available.  A SURSEM 
FORTRAN  program  card  deck  suitable  for  batch  processing  exists  at  NRL.  The  data 
cards  required  are  described  below. 

Data  card  f— Detailed  output  control  integer  (15  format);  1 = detailed  output  to  be 
(printed 


Data  card  2— Title  card,  run  identification  (free-fo-m) 

Data  card  3— Radar  position  (jr,  y,  z)  in  thousands  of  feet  (3F8.2  format) 
Data  card  4 — Eleven  basic  radar  parameters  (9F8.2,12,F0..2  format): 


\ 

1.  Radar  frequency  in  megahertz  ' 

2.  Antenna  (latteni  ‘'unction  indicator  0 = pencil  beam,'' 
beam 


= cosecant-squared 


3.  Receiver  noise  in  dB 

4.  Horizontal  3-d B beamwidth  in  degrees 

5.  Vertical  3-d B beamwidth  in  degrees 

6.  One-way  antenna  gain  in  dB 

7.  One-way  sidelobe  level  in  dB  down  from  peak 

8.  Receiver  loss  in  dB 

9.  Transmitter  loss  in  dB 

10.  Number  of  scan  modes 

11.  Linear  polarization  in  degrees  (0°  = horizontal,  90°  = vertical) 
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Data  cards  5 and  6 (one  set  for  each  radar  scan  mode)— Sixteen  parameters  for  each 
scan  mode  ( 10K8.2/6F8.2  format): 

1.  Lower  boundary  elevation-angle  coverage  in  degrees 

2.  UpfMjr  boundary  elevation-angle  coverage  in  degrees 
8.  Peak  power  in  megawatts 

1.  Pulse  length  in  microseconds 
5.  Interlook  period  in  seconds 
fi.  Scan  offset  in  seconds 

7.  Instrumented  range  in  nautical  miles 

8.  Mode-defendent  loss  in  dB 

9.  Number  of  pulses  integrated 

10.  Minus  logjo  (false-alarm  probability) 

11.  Compressed-pulse  length  in  microseconds 

12.  Sea-clutter  improvement  factor  in  dB 

18.  Intermediate-frequency  bandwidth  in  megahertz;  if  0,  bandwidth  will  be 
set  at  1.0/compressed-pulse  length 

14.  Mode-dependent  frequency  increment  in  megahertz 

15.  Blanking  time  in  microseconds;  if  0,  set  at  pulse  length 
IH.  Rain-clutter  improvement  factor  in  dB 

Data  card  7— Numb«>r  of  targets  (15  format) 

Data  curd  8— Thirteen  parameters  for  each  target  (12F6,2,I3  format): 

l -l.  Initial  coordinates  x,y,z  in  thousands  of  feet  and  time  in  seconds 

5-8.  Terminal  coordinates  x,y,z  in  thousands  of  feet  and  time  in  seconds 

9-11.  Radar  reflective  areas  for  head-on,  broadside,  and  minimum  in  square 
meters 

12.  Jamming  power  density  in  watts  per  megahertz 
18.  Marcum-Swerling  cross-section  model  number 

Data  card  9—Vour  environmental  parameters  (4F8,2  format): 

1.  Wind  speed  in  knots 

2.  Height  of  wind-speed  measurement  in  thousands  of  feet 
8.  Multipath  indicator  (1  = multipath,  0 = no  multipath) 

4.  Rainfall  rate  in  millimeters  per  hour 
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Data  card  70-F’rint  control  [laramoters  (3K8.2.10I4  format): 

1.  Lower  bound  for  which  single-scan  probability  of  detection  will  be  listed 

1.  Upper  bound  for  which  single-scan  probability  of  detection  will  be  listed 

3.  Largest  cumulative  probability  of  detection  to  be  listed 

■1.  Line  print  indicator;  if  this  number  were  5,  then  one  out  of  every  five 
lines  of  possible  output  would  be  listed 

5.  Number  of  modes  to  be  used 

b.  Mode  numbers  to  be  used 

Data  card  7 7— Recycle  control  parameter  (15  format); 

1 = New  radar,  in  which  case  the  next  data  card  is  card  1 

2 = New  targi'ts 

3 = New  environment 

4 = Run  completed 
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;t  Sl'USKM  PROGRAM 

;!.l  SURSKM  Kxocutivo  Routine 

riu-  SURSKM  Kxecutive  Routine  drives  the  surveillance  radar  systems  evaluation 
model.  I lie  model  itself  consists  of  a number  of  subroutines  that  perform  specialized 
film  tioMs;  the  executive  routine  links  these  routines  together.  The  modular  construction 
of  the  model  faiilitaU*s  changes  and  additions  to  the  existing  version. 

Die  e.Xi-ciilive  routine  initiates  communication  with  the  user,  directly  by  means  of  a 
kexiio.iid  terminal  in  a time-sharing  system  or  through  data  cards  in  a batch-processing 
operation.  It  monitors  the  input  of  scenario  data  (using  Subroutines  INITIAL,  TARGK  I S, 
.aid  K.WIK.N)  and  print  control  parameters  (read  directly).  On  the  time-sharing  system, 
the  user  is  given  the  option  of  having  a description  of  the  scenario  parameters  printed 
poor  to  reipH'st  for  input.  The  executive  routine  also  performs  the  housekeeping  chon-s 
for  the  model;  it  sets  constants  and  conversion  factors,  and  maintains  various  counties 
ami  flags  lo  keep  track  of  the  progress  of  the  engagement. 

Once  the  sienario  has  been  defined,  the  executive  routine  calls  on  Subroutine' 

.\1A  rt’ll  to  determine  the  time  at  which  each  radar  scan  mode  will  first  illuminate  the 
target.  .At  Dii.s  i>oiiH  program  initialization  is  complete  and  the  executive  routine  enters 
Its  recursive  portion  its  the  engagement  begins.  A call  to  Subroutine  NEIXTSCN  deter- 
mines the  scan  mode  that  will  next  illuminate  the  target.  Current  engagement  time  now 
becomes  the  time  of  occurrence  of  the  selected  scan  mode.  Subroutine  NEWPOS1’  com- 
pules  ihe  current  position  of  each  target  in  preparation  for  the  calculation  of  the  single- 
.si  an  prob.ibilily  of  detection,  which  follows  in  Subroutine  DETPROB.  The  cumulative 
jirobability  of  detection  (the  probability  that  the  target  has  been  detected  at  least  once 
liy  this  time  into  the  engagement)  is  then  calculated  within  the  executive  routine,  which 
;iKu  stores  current  lime  and  single-scan  probability  of  detection  in  a detection  table  for 
optional  future  use. 

If  detailed  mit/)ut  is  di'sired  and  the  conditions  of  the  output  control  parameters  are 
iiiei.  the  output  data  corresponding  to  the  scan  mode  just  processed  are  scaled  and  printed. 
If  I hi-  i.uget  has  not  yet  reached  its  final  destination.  Subroutine  NEXTSCN  is  called  to 
determine  tiu'  sian  mode  that  will  next  illuminate  the  target,  and  the  sequence  of  events 
de.-.erit)ed  ;iliove  is  repc'ated. 

file  I ngageinent  ends  when  the  target  arrives  at  its  terminal  position.  At  this  time 
the  user  IS  presented  with  several  options.  He  may  specify  that  the  detection  table  from 
the  completed  engagement  be  saved  on  disk  file  or  magnetic  tajie.  He  may  conclude  the 
run  or  he  may  elect  lo  repeat  the  engagement,  changing  some  or  all  of  the  scenario  input 
paranu'ters.  The  latter  feature  is  particularly  effective  on  the  time-sharing  system,  in  which 
the  e.xecutive  routine  (|ueries  the  user  as  to  which  input  parameters  to  change;  this  results 
in  a i-onsidr-rablc  saving  of  time  and  effort  when  only  a limited  number  of  parameter 
changes  are  involved. 

I'he  dictionary  of  variables  for  the  SURSEM  Executive  Routine  is  given  in  Table  3.1-1 . 
Ihe  .SURSKM  e.xecutive  macro  and  P'ortran  flowcharts  are  .shown  in  Figs.  3.1-2  and  3.1  .1. 
if-|M‘i  lively. 
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Tahlf  .'5.1-1 —SUKSKM  Kxocutivo  Variable  Dii'tionary 


I’OR'l'R.A.N 

Variabh' 

■Alnebraii- 

Notation 

Description 

ACON 

Constant  used  in  sea-state  calculations  (see  Subroutine  JAM) 

1 ALIMIAI) 

tlra/inf>  aiiftle  of  i lutter  patch  (dep) 

AMRN 

iVy- 

Thermal  noise  enerny  (J) 

i 

' ANSI 

Detailed  output  control;  if  YKS,  detailed  output  to  be  print('d:  ^ 
if  NO,  no  printed  outinit 

i ANS2 

Recycle  control  par.imeter;  if  YKS  new  ca.se  with  new  ship/ 
target  .set  or  new  case  with  new  radar  parameters,  deiiondinn 
on  ((uery;  if  NO,  continue  (|uery 

' ANS3 

lii|)ut  parameter  description  control;  if  YKS,  di'lailed  descrip- 
tion of  input  (larameters  will  be  printed;  if  NO,  description 
ski()iH'd 

HKI’A 

Constant  used  in  sea-state  calculations  (see  Subroutine  JAM) 

! BVIlKd 

Tarfjet  elevation  measured  from  the  horizon  (den)  ^ 

BllDKG 

^/i 

Tarfjet  azimuth  (de>j) 

CX’M 

Speed  of  lifiht  (cm/s) 

(NM 

Speed  of  light  (n.mi./s) 

rONV 

10  log,,,  <• 

Conversion  factor  for  converting  natural  logarithms  to  dB 

, cn\n/.j) 

j 

Array  used  to  store  single-scan  probability  of  detection  (J  = 2) 
and  lime  (.7=1)  of  the  Ith  detection  event  (for  subsequent 
use  by  other  programs) 

1 ruMP 

Largest  cumulative  (irobability  of  detection  that  will  be  listed 

1 DBK 

Signal  energy  (dB  relative  to  a joule) 

j DBN 

Total  noise  energy  (dB  relative  to  a joule)  ^ 

OWL  (r/) 

Frequency  increment  for  mode  J (llx) 

KNirriMK 

Clame  time  limit  (hr)  (set  in  Subroutine  KNVIRN  to  bi>  slightly 
greater  than  time  targi't  reaches  terminal  (losition) 

FA(’l 

F 

Propagation  factor  to  the  fourth  )>ower 

FOIMQB 

(Itt)'’ 

Constant 

1 FOlMSg 

(lrr)“ 

Constant 

1 r.N 

One-way  antc'nna  gain  (basic  radar  parameti'r) 

IANS 

Recycle  <-ontrol  parameter;  if  YKS,  new  case  with  new  environ- 1 
mimt;  if  NO,  continue  (]uery  j 

1 
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'I’ahli'  — SURSEM  Executive  Variable  Dictionary  (Continued) 


EORTKAN  ] 
\'ariahlc  ; 

Algebraic 

Notation 

Description 

IKEYK  ! 

i 

1 

1 

1 

1 

Indicator 

0 = program  considering  the  event  that  is  the  first  look  at 

target  by  a mode 

1 = program  considering  subsequent  event 

iWEV 

1 

1 

1 

I’rint  control  parameter;  e.g.,  IREP=5  indicates  that  every  5th 
line  of  output  will  be  printed 

IKKI'E  ' 

! 

i 

C^ounter  for  the  number  of  events  that  are  within  program 
print  control  limits 

ISi'El*  j 

I 

1 

Counter  for  the  number  of  detection  events  (limited  to  1000 ) 

MC  1 

Number  of  scan  modes  operational  for  engagement 

MCCil)  ' 

1 

Scan  mode  number  of  /th  operational  scan  mode 

MUi,  i 

1 

Multipath  indicator  (1  = multipath,  0 = no  multipath) 

NSCAN  1 

Number  of  scan  modes  defined  during  radar  in|nit 

OFH 

i Frequency  of  mode  under  consideration  (MHz) 

I'DCUM 

1 

Cumulative  probability  of  detection 

I’DSS  1 

1 

1 : 

Single-scan  probability  of  detection 

I'BBS 

! Elevation  of  piencil-beam  boresight  for  mode  under  considi'ra 
tion  (rad) 

I'Sl 

Lower  bound  for  which  single-scan  probability  will  be  printt'd 

l*S‘2 

Upper  bound  for  which  single-scan  )irobability  will  be  priiUecI 

Hcn  1 

1 ftasic  radar  frequency  (MHz) 

\iC{  0 

i 

Horizontal  3-dB  beamwidth  for  mode  under  consideration 
' (degrees  to  radians) 

R(’(5) 

j 

Vertical  3-dB  beamwidth  for  mode  under  consideration 
(degrees  to  radians) 

!{(•(()) 

One-way  antenna  gain  for  mode  under  consideration 

uca2) 

! Signal  energy  (J) 

lu'di) 

1 

1 Total  noise  energy  (J) 

BE 

1 

! 1/3  Earth’s  radius  (m) 

RFR 

1 

Ratio  of  basic  frequency  to  frequency  of  mode  under 
consideration 

Bvi()nE(./,r.) 

Lower  elevation  limit  for  mode  J (rad) 

S(’l)l)  1 

Total  sea-clutter  energy  (J) 

NHl.  HKI’OHT 


I'ablf  .‘M-1  — Sl’HSKM  Kxtu  utivc  N'analilf  Dictionary  |('ontiiuu‘cl  I 


FORT KAN 
Variable 

Alucbraic 

Notation 

n 

DcMTiption 

r 

. 

(lame  tune  (hr) 

rim 

Horizontal  .'JdH  beamwidth  for  basic  mode  (rad) 

1 'll  IV 

Vertical  d-dH  beamwidth  for  basic  moiic  (rad) 

I TKCI’ 

Slant  ran  tie  of  target  1 (n.mi.) 

[ riuii’osd,  1) 

R 

Slant  ranne  of  tar(;et  1 (n.mi.) 

h’Kci’osn.r,) 

i 

Target  iizimuth  (rad) 

TKtJI’OSi  l.bi 

Tarnet  elevation  measured  from  horizon  (rad) 

rsF.c 

(lame  time  (s) 

V 

KaiiKc  extent  of  clutter  cell  (m) 

X.IAMN 

Total  jammint'  tmd  sea-clutter  enerjjy  (,7) 

X.JAMNDR 

Total  jammintt  and  sea-clutter  enerjty  (dR  relative  to  a joule) 

XK'IOMS 

Conversion  factor  (knots  to  m s) 

XNM'rOM 

Conversion  factor  (nautical  miles  to  meters) 
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DETAILED\^ 
OUTPUT  DESIRED? 
(ANSI) 


PRINT  OUTPl; : 
HEADING 


DETERMINE  SCAN 
MODE  THAT 
NEXT  ILLUMINATES 
TARGET 

(SUBROUTINE  NEXTSCN) 


II 


SET  FREQUENCY-DEPENDENT 
RADAR  SCAN  PARAMETERS 


,/  DOES  \ 

■'  CURRENT  ^ 
TIME  EXCEED 
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\ TIME^  / 


I 
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PROBABILITY  OF  DETECTION 
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CALCULATE  CUMULATIVE 
PROBABILITY  OF  OETECTION 
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>00P 
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OUTPUT  CONTROL 
PARAMt  TLR  CONDITIONS 
MLT'’ 


^Yos 


SCA!  L OUTPUT 
DATA  FOR  PRINTING 


i 


'PRINl  OUTPUT  DATA 
FOR  CL'RRTNT  SCAN 


<r 


HAVE  DE.TECTION 
TABLE  LIMITS 
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EXCEEDED? 


n 


/ 


/ PRINT  DETECTION 
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No 


OUERY  USER 
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PRINT  PROGRAM 
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Fig.  3.1-2  — SURSEM  executive  macro  flowchart  (Continued) 
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Fig.  3.1*3— SURSEM  executive  flowchart  (Continued) 
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IKEYF=0 


CALI.  MATCH 


DotcriTiitii;  iniliiil  tiini, 
tit  wtiich  Ct'K  t\  si.tin 
rnoclu  sees  Uiriji'l 


ISTEP=2 

IREPF-0 

PDCUM=0. 


Determine  whicli  sain  moiif 
will  next  See  tjrijet 


New  modi.'  hi  ini) 
Yes  (.onaidered 
1 


OFR  = RC(l)  + DWL(NEXT) 
RFR  = RC(1)/OFR 
RC(6)=GN/RFR‘*2 
RC(4)=THH*RFR 
RCIb)=THV*RFR 
PBBS=RMODE(NEXT,1)  + RC(5)/2 
TSEC=T'2600. 


Ci.ime  ovi.T^ 


Yes 


KiR.  3.1 -3— SDRSEM  executive  flowchart  (Continued) 
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Fig.  3,1-3— SURSEM  executive  flowchart  (Continued) 
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3.2  Function  BFAM 

Function  BKAM  is  used  by  the  JAM,  DETPROB,  and  GAIN  subroutines  to  determine 
the  normalized  beam  pattern  factor.  The  function  is  capable  of  handling  cosecant-scpiared 
and  pencil-beam  patterns.  The  dictionary  of  variables  and  the  BEAM  flowchart  are  pre- 
sented in  Table  3.2-1  and  Fig.  3.2-2,  res()ectively. 

The  fumtion  is  called  with  four  calling  parameters:  ALPHA,  BETA,  GAMMA,  and 
KEYl.  ALPHA  is  the  angle  between  the  pencil-beam  boresight  and  target,  measured 
positively  in  the  clockwise  direction  (see  Fig.  3.2-1).  For  cosecant-squared  beams  ALPHA 
is  meiLsured  from  the  center  of  the  main  beam.  BETA  is  the  3-dB  beamwidth.  GAMMA 
is  an  indicator  that  siiei  ifies  whether  the  beam  pattern  factor  is  being  determined  in  the  hori- 
zontal or  the  vertical  direction,  and  KEYl  is  also  an  indicator  that  identifies  the  beam  typ<>. 

'The  BEAM  function  uses  a (sin  x)lx  curve  to  represent  the  horizontal  and  vertical 
beam  (lalterns  of  the  pencil  beam  and  the  horizontal  beam  pattern  of  the  cosecant- 
squared  beam.  The  vertical  beam  pattern  of  the  cosecant-squared  beam  is  modeled  by  a 
main  beam  with  a (sin  x)/x  rejiresentation  and  an  extended  fan  above  the  main  beam  in 
which  the  antenna  gain  will  vary  with  elevation  angle  according  to  R^/h^. 


Table  3.2-1  — BEAM  Variable  Dictionary 


r 

FORTRAN 

Variable 

Algebraic 

Notation 

Description 

ALPHA 

Angle  between  boresight  and  target  for  (rad) 

BETA 

p 

The  3-dB  beamwidth  (rad) 

DBDOWN 

First  sidelobe  power  level  ratio 

GAMMA 

y 

Beam  pattern  indicator  (0  = pencil  beam,  1 = csc^  beam) 

HOFK 

Angle  at  which  the  slope  of  the  (sin  px)lpx  beam  pattern 
equals  zero  (rad) 

KEYl 

Beam  pattern  factor  indicator  (0  = horizontal,  1 = vertical) 

PBBS 

E 

The  elevation  of  the  “boresight”  of  the  main  beam  portion  of 
the  csc2  beam  (rad)  1 

KMOr)E(J.2) 

UpfH'r  elevation  limit  for  mode  J (rad) 

SING 

f 

Normalized  beam  pattern  factor  (power) 

THETA 

0 

1 

Normalized  angular  position  of  target  (rad) 

THETBK 

The  3-dB  beamwidth  of  the  main  beam  portion  of  the  csc-^ 
beam  multiplied  by  a constant  k that  sets  THETBK  eijual  to 
twice  the  elevation  of  the  pencil-beam  boresight  (rad) 

3.2-1 
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The  location  of  the  point  on  the  main  beam  at  which  the  tangent  to  the  beam  is  zero  deter- 
mines the  start  of  the  cosecant-squared  portion  of  the  beam.  Assuming  that  the  main  beam 
can  be  represented  by  a (sin  kx)lkx  curve,  this  point  is  found  as  follows:  A point  on  the 
curve  with  elevation  0 has  a radius  R or  normalized  power  magnitude  given  by 


where 


2.78 

P = "T 


(3.2-6) 


(3.2-7) 


0 = <t>  - E . 


(3.2-8) 


Expressing  R in  rectangular  coordinates  and  differentiating  yields 


where 


X ^ yy 
R 


sin  pO  cos  pO  sin  pO  , 

PO  L (p0)2 


(3.2-9) 


tan-l  f 


(3.2-10) 


1 + y2/jc2 


(3.2-11) 


xy  - y 


(3.2-12) 


At  the  angle  9fj  where  the  cosecant-squared  beam  pattern  starts,  y'  - 0.  Combining  Eqs. 
(3.2-9)  and  (3.2-12)  and  inserting  y'  = 0 gives 


^ sin  pOft  r cos  p9h  _ sin  pO/i~| 

pOh  L pOh  ~ (p0,)^\ 


(3.2-13) 


R = 2k 


sin  pOh  cos  pOh  sin  pOf^ 

(p0;,)2  . 


tan  (t>h  • 


(3.2-14) 


Substituting  the  expression  for  R found  in  Eq.  (3.2-6)  gives 


j 
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0 - 1 + 2p  ^cot  pdh  - ^ j tan  . 


It  is  reasonable  to  assume  that  <t>h  and  0/,  are  small.  With  this  assumption  it  can  be 
shown  that 

(3  2.16 


This  reduces  Eq.  (3.2-15)  to 


tanp0ft  p<t,h 


2p^6h 


2pHh(<l>h-E)  = 3, 


which  can  be  expressed  as  the  quadratic  form 


with  the  root 


E + (£2  +6/p2)l/2 


Using  Eqs.  (3.2-5)  and  (3.2-7),  this  can  be  further  expressed  as  a function  of  /3: 


rf,.  - 1 602 


(3.2-22) 


= I + (fc2  +3.1)^^2] 


(3.2-23) 


The  normalized  beam  pattern  factor  (power)  for  the  vertical  pattern  of  the  cosecant- 
squared  beam  can  now  be  determined  according  to  the  position  of  the  target.  If  the 
target  elevation  is  above  0^,  the  antenna  beam  pattern  factor  will  vary  with  elevation  ac- 
cording to  the  square  of  the  cosecant: 
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r 


where  K is  readily  found  to  be 


A0) 


K 

CSC  2 0 


^ = f(<Ph  ) esf2  0,, 


and 


f(4>)  = fiH) 


CSC2  0;, 

CSC^  0 


If  the  target  elevation  is  less  than  or  equal  to  0;,, 


(3.2-24) 


(3.2-25) 


m 


sin  p(0  - E) 


L P(<P-E) 


(3.2-26) 


In  summary,  the  beam  pattern  factor  for  the  vertical  pattern  of  the  cosecant-squared 
beam  can  be  expressed  as  follows: 


sinc2 


2.78 


f«l>)  = ^ 


(5(0  - (fe^/2)l 

2.78 csc-2  <pfj 

(510/1  - (fe(3/2)l  0 

first  sidelobe  level  (0  > E^,) , 


sinc-^ 


(£u  > 0 > 0/i) 


where  the  term  sine  (x)  = sin  x/x. 

This  completes  the  computation  proce.ss,  and  control  of  the  program  is  returned  to 
the  calling  subroutine. 
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.f.;i  Subroutine  CLUTSKl 

Suliroiitiiie  CI.UTSiri  i.s  I'alled  l)y  Sutrroutine  JAM  to  evaluate  tlie  normali/.<“(l  ii-flci 
iivity  (i(),  wliu  li  corresponds  to  given  values  of  radio  frequency  (XFRE),  Beaufort  sea 
stale  tXBlsAU).  iiuldent  angle  (XANC5),  and  the  angle  of  linear  polarization.  The  diciionaiv 
oi  ('Ll  i'SUl  vanal)les  is  given  in  Table  3.3-1,  and  the  flowchart  is  shown  in  Fig.  3.3-2. 


Table  3.3-1  — CLUTSIG  Variable  Dictionary 


l-  — -1 

KOKTKAN 

\aiiable 

.Algebraic 

Notation 

Description 

ANG 

Linear  polarization  (rad) 

I'sDKXl  I.Jl 

The  INDEX  (3,2)  array  identifies  the  values  in  the  X1‘.\H  .ina\ 
that  straddle  the  values  of  RF,  Beaufort  scale,  and  incidence 
angle  that  are  being  considered 

M)X(ll 

Parameter  bookkeeping  array; 

NDX(l)  = number  of  RF  considon'd 
NDX(2)  = number  of  Beaufort  scab's  considi'i'eil 
NDX(3)  = number  of  incident  angles  considered 

Parameter  1 is  assigned  the  value  of  the  RF  if  it  is  witliin  the 
boundary  values  500  to  35  000  MHz;  otherwisi'  it  is  assigned 
the  boundary  value  that  is  closest  to  the  RF 

l’AK(2) 

Similar  to  paramett'r  1 but  for  the  Beaufort  sr  ali'  with  a rangi' 
of  1 to  6 

BAH(3) 

Similar  to  parameter  1 but  for  10  times  the  incident  angli'  wit  It 
a range  of  1°  to  100° 

I’OLRZ 

Or 

Linear  polarization  (deg)  (0°  = horizontal) 

SIGN 

Normalizing  factor  applied  to  TEMP 

SlGOHf  1,  I.K) 

Three-dimensional  array  relating  normalized  refh'clivily  to 
RF(I),  Bt'aufort  scale  (J),  and  incident  angle  (Kl,  for  lion 
zontal  polarization 

SIGOV(l.J.K) 

Similar  to  SIGOH  but  for  vertical  polarization 

SIGZ 

<>o 

Normalized  reflectivity  (dB  below  a 1-m-  target  on-) 

SIGZP 

Normalized  reflectivity  associated  with  vertical  polarization 
(dB  below  a l-m^  target/m^) 

IF.MP 

Weighting  function  applied  to  the  value  of  the  normalized  re 
fleciivity  at  each  vertex  of  a “cube”  in  the  SIGOV  or  SlUOH 
matrix;  the  cube  surrounds  the  point  defined  by  P.\R(Jl 

XANG 

Incident  angle  (rad) 

XBKAl/ 

Beaufort  scale 

: XFRK 

...  L J 

RF  (MHz) 

I 
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NRL  REPORT  H037 


ENTER 


ANG=POLRZ*3.1Tlb9/180. 
PAR(1)=AMAX1  |500.,AMIN1(XFRE,35000.)) 
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Fig.  3.3-2-CLUTSIG(XFRE,XBEAU,XANG,SIGZ,POLRZ)  flowchart 
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Fig.  3.3-2-CLUTSIG(XFRE,XBEAU,XANG,SIGZ,POLRZ)  Howchart  (Continued) 
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Fig.  3.3-2  CLUTSIG { XFRE, DBEAU» XANG, SIGZ, POLRZ)  flowchart  (Continued) 


t 


I. 


I 


1 


1 


f 


(I 


3.3-4 


1 


i 


KAPLAN,  GRINDLAY,  AND  DAVIS 

The  normalized  reflectivity  represents  the  observed  mean  radar  cross  section  from 
each  unit  of  area  in  the  clutter  cell;  that  is,  if  Oq  = -20  dB,  each  square  meter  in  the 
clutter  cell  will  contribute  a radar  cross  section  that  is  20  dB  below  a l-m^  target. 

Values  of  oq  for  various  radio  frequencies  (I),  sea  states  (J),  and  incidence  angles 
(K)  are  stored  in  two  three-dimensional  arrays:  SIGOH(I,J,K)  and  SIGOV(I,  J,K),  cor- 
responding to  horizontal  and  vertical  polarization,  respectively.  These  values  are  based 
on  tables  that  were  presented  in  Ref.  2 and  have  been  extended  for  greater  utility.  The 
range  of  values  for  the  various  parameters  is  as  follows: 

Parameter  Range  of  Values 

Frequency,  MHz  500,  1250,  3000,  5600,  9000,  17  000,  35  000 

Beaufort  scale  1,  2,  3,  4,  5,  6 

Incident  angle,  degrees  0.1,  0.3,  1,  3,  10 

In  its  current  configuration.  Subroutine  CLUTSIG  considers  only  linearly  polarized 
radars.  For  a given  set  of  parameters  values  of  oq  are  drawn  from  the  SIGOH  and  SIGOV 
arrays  by  means  of  a linear  interpolation  scheme.  These  values  of  the  normalized  reflec- 
tivity are  for  horizontal  and  vertical  polarization,  respectively.  The  normalized  reflectivity 
for  a given  linear  polarization  angle  Op  is  found  from 

Oo(Op)  = [^(OoH  cos  0p)2  + (Oov  sin  . 

This  value  of  oq  is  returned  to  Subroutine  JAM,  thereby  completing  the  process. 
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I 3.4  Subroutine  DETPROB 

J Subroutine  DETPROB  is  called  by  the  SURSEM  Executive  Routine  to  determine  the 

I single-scan  probability  of  detection  for  a given  target  position  and  environment.  The 

process  is  detailed  and  takes  into  account  such  factors  as  target  aspect  angle,  target  fluctua- 
tions, multipath,  rain  attenuation,  rain  clutter,  sea  clutter,  and  jamming.  The  process  is 
i'  outlined  below,  followed  by  a flowchart  of  the  subroutine  (Fig.  3.4-1)  and  a list  of 

i FORTRAN  variables  (Table  3.4-2). 

DETPROB  first  calls  Subroutine  TARSIG  to  compute  the  target’s  radar  cross  section 
o as  a function  of  aspect  angle.  This  is  then  used  to  determine  the  free-space  returning 
signal  power  at  beam  maximum  according  to 

„ PtG^X^oLrLtLm  , , , 

Pr  = ^ (3.4-1) 

R‘‘(47t)3 

where 


Pt  = peak  power  (watts) 

G = one-way  antenna  gain  (with  respect  to  omnidirectional  case) 
X = radar  wavelength  (meters) 
a = target  cross  section  (square  meters) 

Lr  = receiver  antenna  losses 

Lt  = losses  between  transmitter  output  and  free  space 
Lm  = mode-dependent  losses 
R = target  range  (meters) 

Received  signal  energy  for  a pulse  of  duration  t is  then  given  by 


So  = PrT.  (3.4-2) 

If  the  radar  under  consideration  is  not  a pencil  beam  or  tracking  radar,  adjustments 
have  to  be  made  to  the  signal  energy  to  account  for  the  target’s  being  off  beam  center. 
This  is  accomplished  through  the  use  of  the  BEAM  function,  which  determines  a one-way 
beam-shape  factor  f(6)  that  is  applied  to  the  received-signal  energy  according  to 

Si  = So[A0)]^  (3.4-3) 

Rain  is  modeled  by  a large  number  of  independent  scatterers,  each  of  cross  section 
0/  and  located  within  the  radar  resolution  cell.  This  method  is  suggested  by  Skolnik  (31. 
Accordingly  the  total  cross  section  is  given  by 

OR  = Vm  ^ o,  (3.4-4) 

where  is  the  volume  of  the  radar  resolution  cell  and 


3.4-1 
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V„. 


(3.4-5) 


where  Og  and  0^  are  the  horizontal  and  vertical  3-dB  beamwidths  in  radians,  respectively, 
and  Tp  is  the  compressed-pulse  length  in  seconds. 

It  can  be  shown  that  if  the  raindrop  diameter  D is  small  in  comparison  to  X,  then  o, 
can  be  represented  by 

0/  = ^ \K\^D^  (3.4-6) 

A 

where  K depends  on  the  dielectric  constant  of  the  scatterer  and  is  approximately  0.93 
for  water  at  10°C  when  X = 10  cm.  Since  the  drop  diameter  is  not  a convenient  param- 
eter, expressions  have  been  developed  that  relate  drop  diameter  to  rainfall  rate  (in  mil- 
limeters per  hour): 


^ = 200r>  6 , 


(3.4-7) 


Combining  Eqs.  (3.4-4),  (3.4-5),  and  (3.4-6)  and  using  a value  of  0.93  for  gives 
the  total  rain  cross  section  in  the  resolution  cell  as 

OR  = 6.706  X 10"®  T^Ofl0fl/?2rl-6x-4.  (3.4-8) 

This  expression  for  or  is  used  to  determine  the  rain’s  contribution  to  the  total  noise. 

The  two-way  rain  attenuation  is  calculated  by  fitting  a curve  to  data  published  by 
Nathanson  [4].  The  data  show  a logarithmic  relationship  between  attenuation  and  fre- 
quency that  can  be  expressed  algebraically  as 

2a  = 1.753  X 10-3 (3.4-9) 

where  2q  is  the  two-way  attenuation  (decibels  per  nautical  mile  per  millimeter  per  hour) 
and  f is  the  frequency  in  gigahertz.  The  two-way  attenuation  Ar  (absolute)  for  a given 
rainfall  rate  r,  range  R (meters),  and  wavelength  X (meters)  is  given  by 


logic  Ar  = -10'*^  RrX'^-^'^  . (3.4-10) 

Before  the  rain-attenuated  signal  energy  can  be  computed,  it  is  necessary  to  consider 
multipath  effects.  This  is  carried  out  in  Subroutine  MULPTH,  which  calculates  the  prop- 
agation factor  F.  The  rain-attenuated  signal  energy  for  IF  bandwidth  Bjp  is  then 


S = SiF^/lrlmin  (BipTf,  1)1 


(3.4-11) 
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where  the  bandwidth  adjustment  is  consistent  with  matched-filter  analysis. 

The  four  components  that  are  considered  to  be  contributory  to  noise  energy- 
thermal  noise,  jamming  energy,  sea  clutter,  and  rain  backscatter— are  now  computed. 

Thermal  noise  energy  is  determined  from 


Nt  = F„kTo 


(3.4-12) 


where  F„  is  the  receiver  noise  figure,  k is  Boltzmann’s  constant,  and  To  is  the  system 
temperature  in  kelvins. 

Jamming  energy  and  sea  clutter  are  calculated  by  Subroutine  JAM. 

Rain  backscatter  energy  is  computed  according  to 

GORPrlcT 


Er 


(3.4-13) 


where  is  the  rain-clutter  improvement  factor  and  the  factor  6 represents  the  effect  of 
averaging  returns  for  rain  in  the  resolution  cell  over  many  multipath  fade  and  reinforce- 
ment regions. 

The  ratio  of  signal  energy  to  noise  energy  is  now  determined  by 

~=  S[(Nt  Ej  + Ec  + Er)  max  (li]pT,  I (3.4-14) 

where  Ej  and  Ec  represent  the  jamming  energy  and  clutter  energy,  respectively,  and  the 
adjustment  to  the  total  noise  energy  allows  for  increased  noise  due  to  an  unmatched  IF 
bandwidth.  The  signal-to-noise  ratio  is  finally  utilized  by  Subroutine  MARSWR,  which 
provides  the  signal-scan  probability  of  detection  for  a specified  Marcum-Swerling  cross- 
section  model.  This  completes  the  process,  and  control  of  the  program  is  returned  to  the 
main  program. 


3.4-3 
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RC(12)=RC(1 1)*RM0DE(NEXT,4I 
TEMPWR  = RC(12) 
RCn2)=RC(12)*FHV|l)*FHV|l) 


Energy  n'ceived  corrected 
tor  olf-borosi(jt>t  position 


MULPTHd.FAD 


Conifjiite  (iropdydtion  factor 


CoiTi()ute  rain  cross  section 


FAC4=FAC*FAC’FAC'FAC 

RNCS=6.706E-6*TAU(NEXT)*RC(4)*RC(6) 

•RM*RM*WVL**(-4)*ENVIR(4)”l.fi 


Compute  two-way  rain  attenuation 


RA=  10*  *{-1.E-8*RM*ENVIR(4rvWL**(- 1.871} 


Compute  signal  energy 


RC(12)  = RC(12*FAC4*MIN1  FIRMODE  (NEXT.  1 2)  *TAU(NEX7),1.1  *RA 


Compute  system  noise  energy 


RC(14)=RC(8)*RC(10) 

AMBN=RC(14) 


CALL  JAM 


Comtnitc  iamming  and 
clutter  energy 


RC(14)  = RC(14)  + RC(12)*6.*RNCS/(TARCS*FAC4)*SMODE(NEXT,2)tEJ*RA 
M=IMODE(NEXT,1)*IMODE(NEXT,2l 


Compute  signal-to-noise  ratio 


SNR=RC(12)/RC(14)*FL0AT1IM0DE(NEXT,2)1 


CALL  MARSWR[SNR,M,SMODE(NEXT,3),MODEL,PDSS| 


RETURN 


Fig.  3.4-1-DETPROB  (PDSS)  Oowchart  (Continued) 
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Table  3.4-2  — DETPROB  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

EJ 

Ej^E, 

Jamming  and  sea-clutter  energy 

ENV1R(4) 

r 

Rainfall  rate  (mm/hr) 

FAC 

F 

Propagation  factor 

FHV(l) 

Beam-pattern  factor  (power) 

IMODE(J.l) 

n 

Number  of  pulses  integrated 

lMODE(J,2) 

max  {BipTc,  1 ) for  mode  J (rounded  to  nearest  integer) 

R 

R 

Range  (n.mi.) 

RA 

Ar 

Two-way  rain  attenuation 

RC(3) 

Fn 

Receiver  noise  figure 

RC(4) 

Horizontal  3-dB  beamwidth  (rad) 

RC(5) 

<t>B 

Vertical  3-dB  beamwidth  (rad) 

RC(6) 

G 

Antenna  gain,  one-way  with  respect  to  omnidirectional 

RC(8) 

Fr 

Receive  antenna  losses  (dB) 

RC(9)  • 

Lf 

Losses  between  transmitted  output  and  free  space 

RC(IO) 

' kTo 

Boltzmann’s  constant  times  system  temperature 

RC(ll) 

Pr 

Power  received  (W) 

RC(12) 

S 

Signal  energy  (J) 

RC(14) 

Nt 

Thermal  noise  energy  (J) 

RM 

R 

Range  (m) 

RMODE(J,3) 

Pi 

Peak  power  (W)  for  mode  J 

RMODE(J,4) 

T 

Pulse  length  for  mode  J 

RMODE(J,8) 

I'M 

Mode-dependent  losses  for  mode  J 

RMODE(J,12) 

Bif 

Intermediate-frequency  bandwidth  (Hz) 

RMT 

B-* 

Range  to  the  fourth  power  (m"* ) 

RNCS 

OR 

Rain  cross  section  for  rain  in  resolution  cell  (m^) 

SMODE(J,2) 

Ic 

Rain-clutter  improvement  factor 

SMODE(J,3) 

Pf 

False-alarm  probability 

TARCS 

o 

Target  cross  section  (m^) 

TAU(NEXT) 

Tc 

Comp.essed-pulse  length  (s) 

WVL 

X 

Wavelength  (m) 

XNMTOM 

J 

1 

Conversion  factor  (nautical  miles  to  meters) 

3.4-6 
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3.5  Subroutine  ENVIRN 

Subroutine  ENVIRN  is  called  by  the  SURSEM  Executive  Routine.  It  controls  the 
input  of  the  four  environmental  parameters:  wind -speed,  height  of  wind-speed  measure- 
ment, multipath  indicator,  and  rainfall  rate.  The  subroutine  also  determines  the  standard 
deviation  of  the  wave  height  by  the  method  described  below. 

Burling  [5]  suggests  the  following  relationships 

Hii3  = 40f,  (3.5-1) 

where  H1/3  is  the  significant  wave  height  and  o/,  is  the  standard  deviation.  The  significant 
wave  height  is  related  to  the  wind  speed  at  the  sea  surface  by 

Hi/3  = 2.667  X 10-2  y2  (3  5_2) 

where  V and  //1/3  are  given  in  meters  per  second  and  meters,  respectively. 

Pierson  [2]  has  shown  that  the  windspeed  at  10 -meters  above  the  surface  is  related 
to  the  speed  at  greater  heights  by 

/ es.  09682 

VlO  = (3.5-3) 

where  Vff  is  the  windspeed  as  measured  at  height  H above  the  sea.  Combining  Eqs. 
(3.5-1),  (3.5-2)  and  (3.5-3)  yields  (substituting  for  V) 

, .-0.19364 

Oh  = 0.00667  (Vh)2  . (3.5-4) 

Before  returning  control  of  the  program  to  the  SURSEM  Executive  Routine, 

ENVIRN  also  clears  the  initial  and  final  altitudes  of  the  clutter  cell  to  zero,  sets  the 
initial  game  time  to  the  time  the  target  leaves  its  initial  position,  and  sets  an  indicator 
that  designates  the  target  as  being  originally  below  the  horizon. 

The  dictionary  of  variables  used  in  Subroutine  ENVIRN  is  given  in  Table  3.5-1.  The 
ENVIRN  flowchart  is  shown  in  Fig.  3.5-2. 
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Table  3.5-1  — ENVIRN  Variable  Dictionary 


■f 

■ft 


i 

i 


i 

I ' 


Fig.  3..5-2-ENVIRN  flowcharl 
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3.6  Subroutine  GAIN 

Subroutine  GAIN  is  called  by  Subroutines  MULPTH  and  JAM.  Its  primary  function 
is  to  determine  the  field  strength  ratio  in  the  direction  of  direct  and  reflected  rays. 

The  program  is  called  with  the  indicator  I KEY  specifying  which  ray  is  under  con- 
sideration (see  Table  3.6-1  and  Fig.  3.6-2  for  the  dictionary  of  variables  and  flowchart, 
respectively).  If  a direct  ray  is  being  considered,  the  field  strength  ratio  is  determined  by 
taking  the  square  root  of  the  beam  pattern  function  that  is  calculated  in  either  JAM  or 
MULPTH.  Control  of  the  program  is  then  returned  to  the  calling  subroutine. 

For  an  indirect  ray,  the  difference  in  azimuth  between  the  first  target  and  the  target 
called  for  (ITAR)  is  determined  and  used  by  the  BEAM  function  to  calculate  the  hori- 
zontal beam  pattern  factor  (fpH).  The  angle  between  the  direct  ray  and  the  reflected  ray 
is  then  calculated  according  to  (see  Fig.  3.12-3) 


2/?2  sin  4/  cos  \p 
sin  ^ • 

Table  3.6-1  — GAIN  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

ALFV 

Angle  between  direct  and  reflected  rays  at  antenna  (rad) 

FH 

fPH 

Horizontal  beam  pattern  factor  (power) 

FHV(K) 

Pattern  function  (total)  for  target  K 

FV 

fpv 

Vertical  beam  pattern  factor  (power) 

GAINR 

fW) 

Ratio  of  field  strength  in  direction  of  specified  ray  to  the  field 
strength  in  the  beam-maximum  direction 

IKEY 

Indicator  in  calling  sequence  (0  = direct  ray,  1 = reflected  ray) 

ITAR 

Target  number 

OAH 

Horizontal  angle  between  boresight  and  target  (rad) 

OAV 

Vertical  angle  between  boresight  and  target  (rad) 

RC(2) 

Beam  pattern  indicator  (0  = pencil  beam,  1 = csc^  beam) 

RC(4) 

Horizontal  3-dB  beamwidth  (rad) 

RC(5) 

Vertical  3-dB  beamwidth  (rad) 

RC(7) 

One-way  sidelobe  level  (v) 

SRTAR 

«2 

Slant  range  from  target  to  reflection  point  (m) 

TRGPOS(I,4) 

R 

Slant  range  of  target  / (m) 

TRGPOS(I,5) 

Target  / azimuth  (rad) 

TRGPOS(I,6) 

e 

Target  / elevation  with  respect  to  the  horizon  (rad) 
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Direct  or 
reflected  ray? 


I KEY=1 


GAINR  = SQRT[FHV(ITAR)1 


OAH=SMLANGfTRGPOS(I,5!-TRGPOS(ITAR,5)] 

ALFV=(2.*SRTAR*SINPSI*COSPSI[TRGPOS(ITAR,4)(XNMTOM)l 


sin  < P 


ALFV<1 


'ALFV<1.01 


PRINT 

WARNING 


ALFV=1. 


ALFV=ASIN(ALFV) 

ALFV=TRGP0S(ITAR,6)-ALFV 

0AV=SMLANG(TRGP0S(1,6)-ALFV] 


Cosecant-squared  beami* 


GAINR  = RC(7) 


RC(2)-1 


RC(2)  = 1 


IN  3-dB  BEAM 


FH=BEAM[OAH,RC(4),RC(2),0) 
FV=BEAM10AV,RC(5),RC(2).11 
GAINR  = FH*FV 

GAINR  = AMAX1  IRC(7),SQRT(GAINR)1 


OAV  = (PBBS-ALFV) 


Fig.  3.6-2-GAIN(IKEY,ITAR,GAINR)  Howchart 
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This  information  is  used  to  calculate  the  vertical  angle  between  boresight  and  target. 
For  the  cosecant-squared  beam,  this  amounts  to  the  angular  difference  between  pencil- 
beam  boresight  and  the  target.  For  the  pencil  beam,  the  beam  is  assumed  to  be  on  the 
first  target  at  all  times,  and  the  vertic  il  angle  between  the  first  target  and  the  target  under 
consideration  is  determined.  This  information  is  used  by  function  BEAM  to  calculate  the 
vertical  beam  pattern  factor  fpy,  which  is  used  in  turn  to  calculate  the  total  beam  pattern 
factor  from 


fp  - fpnfpv 


and  the  field  strength  ratio  from 


fW)  = . 

If  this  value  exceeds  the  first  sidelobe  level,  it  is  retained;  otherwise,  the  field  strength 
ratio  is  assigned  the  value  of  the  first  sidelobe  level.  The  first  sidelobe  level  is  also 
assigned  to  the  field  strength  ratio  if  the  target  is  not  within  the  3-dB  beamwidth  in  the 
pencil-beam  case. 

When  the  calculation  of  the  field  strength  ratio  has  been  completed,  control  of  the 
program  is  returned  to  the  calling  subroutine. 
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3.7  Function  GAM 

Function  GAM  is  called  by  several  statements  in  Subroutine  MARSWR.  It  is  used  to 
evaluate  the  incomplete  gamma  function  of  the  form 


= f ^ 


f{a 


f{a,p)  = 1 


-f 


du 


e "u 


du  . 


The  evaluation  is  completed  as  follows:  integration  by  parts  yields 

-OTT)! 

This  is  a recursive  process  and  leads  to 

f(a,  p)  = 1 - 2] 

or  equivalently  to 


k=Q 


e~“a^ 
k\  ’ 


f{a,P)  = X] 


fc=p+l 


e~°g^ 

k\ 


(3.7-1) 


(3.7-2) 


(3.7-3) 


(3.7-4) 


(3.7-5) 


Equations  (3.7-4)  emd  (3.7-5)  are  the  expressions  that  are  then  used  by  GAM  to 
evaluate  the  incomplete  gamma  function.  The  choice  of  Eq.  (3.7-4)  or  (3.7-5)  is 
determined  by  the  convergence  characteristics  of  the  respective  summations. 

It  has  been  found  that  Eq.  (3.7-4)  converges  faster  than  does  Eq.  (3.7-5)  when  a ^ p, 
whereas  the  reverse  is  true  when  a < p.  Selection  is  made  on  the  basis  of  this  criterion, 
and  an  iterative  loop  is  set  up  that  calculates  each  term  of  tne  summation.  As  the  pro- 
gram is  currently  confi'  ored,  the  loop  is  terminated  whenever  the  value  of  an  single  term  in 
the  summation  is  less  than  the  accuracy  of  the  computer  that  is  exercising  the  program. 
The  loop  involving  Eq.  (3.7-4)  is  also  terminated  when  k = p. 

After  the  iterative  loop  is  terminated,  the  value  of  GAM  is  determined  and  control 
of  the  program  is  returned  to  MARSWR. 

A dictionary  of  the  variables  used  in  function  GAM  is  given  in  Table  3.7-1.  The 
flowchart  is  shown  in  Fig.  3.7-2. 


3.7-1 
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Table  3.7-1  — GAM  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

J 

Description 

B 

a 

Parameter  used  in  the  incomplete  gamma  function 

GAM 

f(a>  P) 

Value  of  incomplete  gamma  function  corresponding  to  a and  p 

N 

P 

Parameter  used  in  the  incomplete  gamma  function 

TEMP 

Partial  sum  of  e~°a^!k\  or  £^=p+i 

TERM 

The  feth  term  in  the  above  summations 

3.7-2 
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ENTER 

r~r~ 

SUM=0 
K = B 


J = N + 1 


TERM  = EVAL(B,J) 
TN=TERM*FLOATF(J)/B 


TERM  = EVAL(B,J) 
TN=TERM 


TEMP=SUM+TERM 


TEMP=SUM+TERM 


SUM-TEMP 

>0 


SUM-TEMP 

>0 


No"  15 

SUM=TEMP 

J=J+1 

FJ=J 

TERM=TERM*B/FJ 


J=J+1 

TERM  = TERM*FJ/B 


SUM=TEMP 


I 
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3.8  Subroutine  INITIAL 

Subroutine  INITIAL  is  called  by  the  SURSEM  Executive  Routine.  Its  primary  pur- 
pose is  to  establish  constants,  read  in  data,  and  convert  variables  to  the  correct  units  for 
utilization  by  the  other  subroutines.  (See  Table  3.8-1  and  Fig.  3.8-2  for  the  dictionary 
of  variables  and  flowchart.) 


Table  3.8-1  — INITIAL  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

1 

Description 

DWL(J) 

Frequency  increment  (MHz),  mode  J 

lMODE(J,l) 

Number  of  pulses  integrated 

IMODE(J,2) 

max  (BipTc,  1)  rounded  to  the  nearest  integer 

MILLION 

IX  1Q6 

MM 

Effective  number  of  pulses  integrated 

NSC  AN 

Number  of  scan  modes 

PI 

7T  ^ 

3.1415926536 

PIOVER2 

7T/2 

POLRZ 

1 

Linear  polarization  (deg)— (0°  = horizontal,  90°  = vertical) 

RADIAN 

57.29578  deg 

RC(1) 

f 

Radar  frequency  (MHz) 

RC(2) 

Antenna  pattern  function  indicator  (0  = pencil  beam,  1 = csc^ 
beam) 

RC(3) 

1 

Receiver  noise 

RC(4) 

i 

Horizontal  3-dB  beamwidth  (degrees  to  radians) 

RC(5) 

Vertical  3-dB  beamwidth  (degrees  to  radians) 

RC(6) 

One-way  antenna  gain 

RC(7) 

1 

One-way  sidelobe  level 

RC(8) 

Receiver  losses 

RC(9) 

Transmitter  losses 

RC(IO) 

kT 

Boltzmann’s  constant  times  system  temperature  (W-s) 

RMODE(J,l) 

Lower  limit  of  elevation  angle  coverage  (deg)  for  mode  J 

RMODE(J,2) 

Upper  limit  of  elevation  angle  coverage  (deg)  for  mode  <7 

RMODE(J,3) 

Peak  power  (megawatts  to  watts) 

RMODE(J,4) 

Pulse  length  (microseconds  to  seconds) 

RMODE(J,5) 

Interlook  period  (seconds  to  hours) 

RMODE(J,6) 

Scan  offset  (seconds  to  hours) 

RMODE(J,7) 

Instrumented  range  (n.mi.) 

RMODE(J,8) 

Mode-dependent  losses 

RMODE(J,ll) 

Compressed-pulse  length  (ps)  for  mode  J 

RMODE(J,12) 

Intermediate-frequency  bandwidth  (megahertz  to  hertz)  for 
mode  J 

SM 

Blanking  time  (ps) 

SMODE(J,l) 

Blanking  range  (n.mi.) 

SMODE(J,2) 

Rain-clutter  improvement  factor 

SMODE(J,3) 

Equivalent  to  XMPF 

SUBC(J) 

Sea-clutter  improvement  factor 

TAU 

rc 

Compressed-pulse  length  (s)  for  mode  J 

TWOPI 

2it 

XMPF 

Negative  logjo  of  the  false-alarm  probability 
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Fig.  3.8-2  — INITIAL  flowchart 
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FOR  SCAN  MODE  J 

READ,IRMODE(J,l),l  = 1,81  ,IMODE(J,1).XMPF,RMODE(J,1 1) 
SU8C(J),RMOD£(J,12).DWL(J),SM,SMODE(J,2l 


RMODE(J,5)>0 


Interlock  period 


RMODEU, 51  = 10. 


RMODE(J,l)  = RMODE(J, D/RADI  AN 
RMODE(J,2)  = RMODE(J,2)/RADIAN 


SM  = RMODE(J,4) 


SMODE(J,l)=t50.*SM/XNMTOM 
SMODE(J,2I=10.**[-SMODE(J,2)/10.1 
SMODE(J,3)  = XMPF 


RMODE(J,5)=RMODE(J, 51/3600. 
RMODE(J,6)=RMODE(J,6)/3600. 
RMODE(J,4)=RMODE(J,4)/MILLION 
RMODE(J,8)=10**[-RMODE(J.8)/10,| 
RMODE(J,3)=RMODE(J,  3) ’MILLION 
TAU=RMODE(J,l  D/MILLION 


RMODE(J,12XO  , 


RMODE(J,12)  = 1.0/RMODE(J,lli 


RMODE(J,12)=RMODE(J,12l*MILLION 
IMODE(J,2)=MAXl[RMODE(J,12)*RMODE(J,  11  I/MILLION + 0.5,1.01 
RMODEIJ.1 1)=10.”(-XMPF| 

SUBC(J)  = 10."1SUBC(J)/10.1 


Fig.  3.8-2  — INITIAL  flowchart  (Continued) 
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The  subroutine  also  performs  a series  of  checks  on  the  input  data: 

1.  It  checks  the  number  of  scan  modes  and  limits  the  number  to  15. 

2.  It  checks  the  interlook  period.  If  the  input  value  is  less  than  or  equal  to  zero, 
the  interlook  period  is  set  equal  to  10  sec. 

3.  It  checks  the  blanking  time.  If  the  input  value  equals  zero,  the  blanking  time  is 
set  equal  to  the  pulse  length. 

4.  It  checks  the  IF  bandwidth.  If  the  input  value  is  less  than  or  equal  to  zero,  the 
bandwidth  is  set  equal  to  the  reciprocal  of  the  compressed  pulse  length. 
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3.9  Subroutine  JAM 

Subroutine  JAM  is  called  by  Subroutine  DKTPROB  to  determine  the  magnitude  of 
received  jamming  and  sea-clutter  energy.  The  subroutine  can  account  for  both  self- 
screening and  standoff  jammers. 

After  initializing  the  required  variables,  the  subroutine  considers  the  jamming  energy 
transmitted  from  each  target.  For  each  jammer  a beam  pattern  factor  must  be  determined 
to  account  for  the  jammer’s  being  off  beam  center.  If  the  antenna  beam  pattern  has  been 
designated  as  a pencil  beam,  the  antenna  beam  pattern  (power)  is  approximated  by  a 
((sin  kx)lkx\  ~ curve  in  both  the  horizontal  and  vertical  directions.  In  this  ca.se  a check 
is  made  to  determine  whether  the  jammer  is  lieyond  the  first  null.  Jammers  that  are  not 
inside  the  first  null  are  assigned  a corresponding  beam  pattern  factor  that  is  equal  to  the 
sidelobe  level.  For  tho.se  jammers  whose  angular  position  places  them  within  the  first 
null,  the  function  BEAM  is  used  to  determine  a horizontal  (/)/)  and  vertical  (/’vd  beam 
pattern  factor.  The  total  beam  pattern  factor  is  then  given  by 

fnv  ~ fnlfv  ■ (3.9-1 1 


A similar  proiedure  is  followed  with  the  cosecant-squared  beam. 


The  free-space  jamming  energy  for  each  jammer  is  now  found  from 


^OJ 


(47t2)R2 


(3.9-21 


where  is  the  one-way  antenna  gain,  Lr  is  the  receiving  antenna  loss,  is  the  mode- 
dependent  loss,  Sj  is  the  jamming  power  density,  X is  the  radar  wavelength,  and  R is  the 
slant  range  from  radar  to  target. 

Subroutine  MULPTH  is  called  to  account  for  multipath  effects.  It  calculates  a one- 
way amplitude  propagation  factor  F,  which  is  used  to  determine  individual  jamming 
energy  as  follows: 


Ej  = EojF^  . 


Total  jamming  energy  is  given  by 


Etj 


(3.9-3) 


(3.9-4) 


where  Nj  is  the  number  of  jammers. 

The  total  sea-clutter  energy  is  determined  when  all  jammers  have  b«*en  considered. 
The  first  step  in  the  determination  of  sea-clutter  energy  is  the  computation  of  the  nor- 
malized mean  backscatter  oq.  This  is  performed  by  Subroutine  CLUTSIG,  which  evalu- 
ates oq  as  a function  of  radio  frequency,  Beaufort  sea  state,  incidence  angle,  and  polariza- 
tion orientation.  The  Beaufort  sea  state  is  calculated  from  the  input  wind  velocity  and 
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the  height  at  which  the  velocity  measurement  is  assumed  to  take  place  [2].  An  equiva- 
lent wind  speed  at  a height  of  10  m is  found  from 

/ ^0.09682 

Vio  = Vh\^)  • (3.9-5) 

The  Beaufort  sea  state  is  then  given  by 

Bss  = 0.6077(Vio)®  ''^®®  . (3.9-6) 

The  other  parameters  required  by  CLUTSIG  (i.e.,  radio  frequency  and  incidence  angle) 
are  inputs  to  Subroutine  JAM. 

When  the  normalized  mean  backscatter  has  been  evaluated,  a differential  clutter  ele- 
ment of  area  rd<t>  dr  is  considered  (see  Fig.  3.9-1).  The  energy  received  (dE)  from  this 
element  is  given  by 


dE  = C — rd(t>  dr 

r'* 

where 

47t3 

and  G,  the  antenna  directional  gain,  is  a function  of  the  horizontal  and  vertical  angular 
displacement  of  the  clutter  cell  with  respect  to  the  beam  center;  that  is, 

G = G(0t  + a,  <|))  . (3.9-9) 

Here  6x  is  the  angle  between  the  local  horizontal  and  the  target  or  beam  center  (see 
Fig.  3.9-2) 


(3.9-7) 


(3.9-8) 


8t  ^ sin”^ 


(3.9-10) 


and  a is  the  angle  between  the  local  horizontal  and  the  reflected  ray;  to  a first-order  ap- 
proximation a is  given  by 


a ^ sin"' 


(3.9-11) 


0 is  the  azimuth  of  the  clutter  element  with  respect  to  beam  center. 

The  total  sea-clutter  energy  is  now  considered  to  be  the  energy  that  is  reflected  from 
an  annulus  (see  Fig.  3.9-3)  of  width  AR  given  by 

AR  = l/2crsec0  (3.9-12) 


3.9-2 
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where  r is  the  pulse  width  and  \l/  is  the  grazing  an^e.  The  total  sea-clutter  energy  is  ex- 
pressed as 


*2ff  r min{y/iah,R*  AR) 


where 


or 


fZIt  r 1 

J 

ip“0  ''r“min(y/2ah,R) 


6 = Bt  + a , 


dr  d<t> 


(3.9-13) 


(3.9-14) 


0 = 0T  + sin-i(7  - ^)  (3.9-15) 

and  r is  the  range  to  the  differential  sea-clutter  element. 

Equation  (3.9-13)  can  be  rewritten  in  a simplified  form  through  the  use  of  a unit 
gate  function  UriRi,  R2)- 


* • " r r T 

i~o  •'r-o 


d<p 


where 


Jii  = min  (fi,  \/2ah) , 

R2  = min  (R  + AR,  \j2ah) . 


(3.9-16) 

(3.9-17) 

(3.9-18) 


Essentially  this  procedure  restricts  consideration  of  the  sea-clutter  return  to  that 
from  within  the  horizon  range;  that  is,  if  the  target  range  is  greater  than  the  horizon 
range,  there  is  no  clutter  retium.  The  sea-clutter  return  is  now  considered  as  coming  from 
two  distinct  areas:  (a)  The  surface  area  that  is  within  the  3-dB  beamwidth  and  (b)  the 
area  of  the  annulus  that  is  outside  the  3-dB  beamwidth.  The  retium  from  the  area  within 
the  3-dB  beamwidth  can  now  be  expressed  as 

= C I I i VARi,R2)drdit>  (3.9-19) 

where  tpg  and  Bg  represent  the  horizontal  and  vertical  3-dB  beamwidths,  respectively,  and 
G has  been  assigned  the  value  of  unity  or  the  value  of  G corresponding  to  beam  center. 

Equation  (3.9-19)  can  be  simplified  by  carrying  out  the  integration  on  0: 

= C0B  jf  ^ ^0  ("T  ’ Ur(Ri,R2)dr.  (3.9-20) 

From  Eq.  (3.9-15)  it  is  possible  to  express  r as  a function  of  B: 

3.9-4 
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r(0)  = 


2h 


sin  {6  - dr)  + [sin^  {6  - 6x)  - (2h/a)]^/^ 

Thus  the  integral  of  Eq.  (3.9-20)  can  be  expressed  entirely  as  a function  of  r; 


(3.9-21) 


El  = C<j>B  j Ur  '•(^)  Ur(Ri,R2)dr,  (3.9-22) 


or 


1 1 

( 

( 6b\ 



i. 

,|« 

0 

II 

max 

\ 2/ 

, mm 

= C<t>B 

This  can  be  simplified  with  the  following  definitions: 


t dr. (3.9-23) 


Si  = max 


S2  = min 
Equation  (3.9-23)  can  now  be  written  as 

El  = C0B  f 4 t^r(Si,S2)dr. 

•V-0 

Integration  of  Eq.  (3.9-26)  yields 

= I - i). 

Similarly  the  energy  from  the  remainder  of  the  annulus  can  be  expressed  as 


(3.9-24) 

(3.9-25) 


(3.9-26) 


(3.9-27) 


(3.9-28) 


where  S represents  a constant  value  assigned  to  the  antenna  directional  gain  (usually  the 
sidelobe  level)  and 


(3.9-29) 


The  total  sea-clutter  energy  can  now  be  expressed  according  to 
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E — El  + E2 
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Ri 


(3.9-30) 


The  sea-clutter  energy  is  further  reduced  by  the  input  sea-clutter  improvement  factor /,,, 

Ec=EIc,  (3.9-31) 


and  the  total  jamming  energy  plus  clutter  energy  is  found  from 

Ej*C  - Etj  + Ec  , (3.9-32) 

The  variables  used  in  Subroutine  JAM  are  listed  in  Table  3.9-3.  The  flowchart  is 
shown  in  Fig.  3.9-4. 


Table  3.9-3  — JAM  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

ALPHA 

a 

Grazing  angle  of  clutter  cell  (rad) 

ALPHAD 

ot 

Grazing  angle  of  clutter  cell  (deg) 

ACON 

Constant  used  in  sea-state  calculation 

BEAUS 

Beaufort  sea  state 

BETA 

Constant  used  in  sea-state  calculation 

DBDOWN 

One-way  sidelobe  level 

DC 

Distance  to  clutter  cell  (on  4/3  Earth’s  radius)  (m) 

DSTAR 

Distance  to  radar  horizon  (n.mi.) 

DWL(J) 

Incremental  change  to  RF  for  mode  J 

EJ 

Ej 

Jamming  and  sea-clutter  energy  ( J) 

ENVIR(l) 

Wind  speed  (knots) 

ENV1R(2) 

Vh 

Height  of  wind-speed  measurement  (10^  ft) 

FH 

fH 

Normalized  horizontal  beam  pattern  factor  (power) 

FHV(J) 

fnv 

Total  normalized  beam  pattern  factor  for  jammer  J (power) 

FOPISQ 

4jt2 

Constant 

FV 

fv 

Normalized  vertical  beam  pattern  factor  (power) 

HR 

hr 

Height  of  radar  (m) 

HT 

hj 

Height  of  target  under  consideration  (m) 

NUMTGT 

Number  of  targets  to  be  considered  plus  one 

PAH 

Horizontal  angle  between  target  being  tracked  and  jamming 
target  (rad) 
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Table  3.9-3  — JAM  Variable  Dictionary  (Continued) 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

PAV 

Vertical  angle  between  target  being  tracked  and  jamming 
target  (rad) 

PBBS 

Pencil-beam  boresight  elevation  with  respect  to  the  horizon  (rad) 

PHIB 

<t>B 

Horizontal  3-dB  beamwidth  (rad) 

PJ 

Sj 

Jamming  power  density  (W/Hz) 

POLRZ 

Linear  polarization  (deg) 

R1 

Ri 

min  (slant  range,  horizontal  range) 

R2 

R2 

max  (slant  range  plus  pulse  width,  horizontal  range) 

RC(1) 

Radar  frequency  (Hz)  for  mode  1 

RC(2) 

Antenna  pattern  function  indicator  (0  = pencil  beam,  1 = csc^ 
beam) 

RC(4) 

<t>B 

Horizontal  3-dB  beamwidth  (rad) 

RC(5) 

Ob 

Vertical  3-dB  beamwidth  (rad) 

RC(6) 

Gr 

One-way  antenna  gain  (dB) 

RC(8) 

Lr 

Receiver  antenna  loss  (dB) 

RC(9) 

Lt 

Losses  between  transmitter  output  and  free  space  (dB) 

RPTB 

r(0B/2) 

Range  corresponding  to  6b  12  (m) 

RE 

a 

4/3  of  the  Earth’s  radius  (m) 

RMODE(J,2) 

Upper  boundary  of  elevation-angle  coverage  (rad) 

RMODE(J,8) 

Mode-dependent  losses  for  scan  mode  (J) 

RMTB 

r(-0B/2) 

Range  corresponding  to  -6b  12 

SIGC 

Ec 

Total  sea-clutter  energy  adjusted  by  improvement  factor  (J) 

SIGJAM 

Sj 

Jamming  power  density  (W/Hz) 

SIGZ 

oo 

Normalized  mean  backscatter  (m^/m^) 

SINALF 

sin  « 

Sine  of  grazing  angle  at  clutter  cell 

SR 

R 

Slant  range  of  target  (m) 

SUBC(J) 

Ic 

Clutter  improvement  factor  for  mode  J 

TEMPWR 

Signal  energy  with  target  at  center  of  beam 

THETB 

Ob 

Vertical  3-dB  beamwidth  (rad) 

THETT 

Of 

Target  elevation  with  respect  to  the  local  horizontal  (rad) 

TRGPOS 

R 

Slant  range  of  target  (n.mi.) 

TRGPOS(J,3) 

Height  of  target  J (n.mi.) 

TRGPOS  (J,  4) 

Slant  range  of  target  J (n.mi.) 

TRGPOS(J,5) 

Azimuth  angle  of  targets  (rad) 

TRGPOS  (J,  6) 

Elevation  angle  of  target  J (rad) 

V 

l/2cTsec  \l/ 

Range  extent  of  clutter  cell  (m) 

WVL 

X 

Wavelength  (m) 

WS 

H 

Intermediate  parameter 

XFRE 

RF  of  scan  mode  under  consideration  (MHz) 

XJAMFA 

Ej 

Jamming  energy  from  ;th  jammer  (J) 
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Kig.  3.9-4— JAM(EJ)  flowchart 
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Cosecant-squared  beam, 
target  below  upper 
coverage  bound,  and 
horizontal  beam  shape 
factor  > sidelobe  level? 


Fig.  3.9-4— JAM(EJ)  flowchart  (Continued) 
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Fig.  3.9-4— JAM(EJ)  flowchart  (Continued) 
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26 

Yes 

.--^RADM<0.^ 

I 

^ 

S1=AMAXI(R1,RPTB) 

S2=AMINI(R2,RMTB) 

WS=0.5*PHIB*  ( 1 7(S1  *S1  )-l  ./(S2*S2)1 
WR=PI*(1./(R1*R1)-1./(R2‘R2)1 
WS=AMAX1(0.0,WS) 

ARI=WR 
' AR2=WS 

C=TEMPWR‘SR**4*SIGZ/TARCS 

SIG=C 

SIGC=C*((AGAIN-SL)*WS  + SL*WR)*SUBC(NEXT)1 
EJ=EJ+SIGC 


^ RETURN^ 


Fig.  3.9-4— JAM(EJ)  Rowchart  (Continued) 
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3.10  Subroutine  MARSWR 

Subroutine  MARSWR  is  called  by  Subroutine  DETPROB.  Its  function  is  to  calculate 
the  probability  of  detection,  given  the  signal-to-noise  ratio,  the  number  of  pulses  inte- 
grated, the  probability  of  false  alarm,  and  the  Marcum-Swerling  target  model.  The  dic- 
tionary of  variables  and  flowchart  are  given  in  Table  3.10-1  and  Fig.  3.10-2. 


Table  3.10-1  — MARSWR  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

DEVAL(A,B,C) 

-A  B C 

A double-precision  function  that  evaluates  e y je 

DGAM(X,  Y) 

A double-precision  function  that  determines  a value  of  the 

incomplete  gamma  function  with  parameters  X and  Y 

EO 

f(Yj) 

Current  value  of  derivative  of  f{  Y) 

El 

Incremented  value  of  derivative 

EN 

N 

Number  of  pulses  integrated 

ENPR 

^FA 

Probability  of  false  alarm 

EVAL(A,B) 

Single-precision  version  of  DEVAL 

FA 

False-alarm  probability  expressed  as  an  absolute  value  of  a 

power  of  10 

FAN 

logio  n 

Logarithm  of  the  false-alarm  number 

FAPREV 

Probability  of  false  alarm  on  previous  pass  throu^  subroutine 

FLOATF(J) 

A function  which  changes  an  integer  J to  floating-point  form 

GAM(X.Y) 

Single-precision  version  of  DGAM(X,Y) 

GAMPR 

f(Yj) 

Current  value  of  f(  Y) 

GS 

niaXg“Yj)  y#  jp 

H 

AY 

Increment  on  the  bias  level  for  use  with  Huen’s  method 

KASE 

Swerling  fluctuation  model  identifier  (KASE  = 0 for  the  non- 

fluctuating  case) 

KS 

^max 

Maximum  value  of  summation  parameter 

N 

N 

Number  of  pulses  integrated 

NPREV 

Number  of  pulses  integrated  on  preceding  pass  through 

subroutine 

PN 

Pn, 

Probability  of  detection 

PYB 

plln 

Pq  is  the  probability  that  there  will  not  be  a false  alarm  in  the 

false-alarm  time 

SNR 

STEP 

f(Yj^l) 

Ratio  of  signal  energy  to  noise  energy 
Incremented  value  of  f(  Y) 

A function  that  evaluates  log  N for  any  integer  K 

SUMLOG(K) 

X 

Ratio  of  signal  energy  to  noise  energy 

YB 

Yb 

Bias  level 

YBPR 

Yo 

Estimated  value  of  bias  level 

I 
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Fig.  3.10-2-MARSWR(SNR,N,FA.KASE,PN)  flowchart 
3.10-2 
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Fig.  3.10-2-MARSWR(SNR,N.FA,KASE,PN)  nowchart  (Continued) 
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Soled  iiidKinuiin  vdliio 
of  k 


KS=-(EN+T)/2.+SQRTFl{(EN-l.)/2.}"2+P*YBl 


KS  = XMAXOF(KG,0) 

GS  = 1-GAM(YB,KS+N-1,TN) 
TS  = EVAL(P,  KSrCS 
G = GS 
K=KS 
TERM  = TS 
TL  = TN 


Summdtiofi  from 


TEMP=SUM+TERM 


TL  = TL*FLOATF(K-rN)/YB 
G=G-TL 


TERM  = TERM’FLOATF(K)*(G-TU/)P*G 


SUM-TEMP 


SUM=TEMP 


Convergence 


TL  = TN‘YB/FLOATF(KS  + N) 
K=KS  + 1 
G=GS+TL 

TERM  = TS*P*G/{GS*FLOATF(K)} 


Snnini.ilion  from 


TEMP=SUM+TERM 


TERM  = TERM*P*(G  + TL)/G*FLOATF(K) 
K = Kt1 

TL  = TL‘YB/FLOATF(K  + N) 
SUM=TEMP 


Convi’rgnncp 

test 


Fig.  3.10-2-MARSWR(SNR,N,FA,KASE,PN)  nowchart  (Continued) 
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(^15^ 


Summation  from 


KS=-1.-EN/2.+SQRTF(EN**2/4.+  P**YB) 


Select  maximum  value 
of  k 


KS  = XMAXOF{KS.O.) 
GS*GAM|YB,KS+N-1.TN) 


>-  z:  = z: 


TS=EVAL(P,KS)‘GS 
G = GS 
TERM=TS 
K = KS 
TL  = TN 


K=K-1 

TL=TL*FL0ATF(K  + N-1)/YB 
G=G+TL 

TEFiM=TERM*FLOATF(K)*(G+TL)(P*G) 


SUM=TEMP 


TL=TN*YB/FLOATF(KS+N) 

K = KS+1 
G=GS-TL 

TERM=TS*P*G/IGS*FL0ATF(K)1 


TERM=SUM+TERM 


K = K + 1 
G=G-TL 

TERM*TERM*P*(G-TL)/(G‘FL0ATF(K+1)1 
TL-TL*YP/FLOATF(K  + N)  . 
SUM-TEMP 


SUM-TEMP 


1 SUM=I.-SUM  1 

V 

<$) 

i 

r 

r 

T 

PN=SUM 

Fig.  3.10-2-MARSWR{SNR,N,FA,KASE,PN)  Howchart  (Continued) 
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PN=|1+2’X*YB/iXt-2)”2)  •EXPF(-2*YB'l?-tXI 


430  ^ 3 

C*2./(2.+EN*X) 

D=l.-C 


PN=(1+YB/(HX)|‘EXPF[-YB/(1  + X)| 


YB"D-EN<0 


SUM«0. 

TERM»1. 

J-N 


TEMP*SUM+TERM 


SUM-TEMP 

TERM=TERM*YB‘D/FLOATF(JI 

J-J+1 


SUM-TEMP<0 


446  I No 

PN=l.-GAM(YB,N-2,DUM)+C*YB*EVAL(YB,N-2)+ 
D*EVAL(YB,N-1(*(1.+C*YB-(EN-2.)*C/D)  'SUM 


PN=l.-GAM(YB,N-3,DUM)+YB*EVAL(YB,N-3) 
•C/D+EXPF(-C*YB-(EN-2.)*LOGF(D)l  * 
11.+C*YB-(EN-2)*C/D)‘GAM(YB’D,N-3,DUM) 


Fig.  3.10-2-MARSWR(SNR,N,FA,KASE,PN)  nowchart  (Continued) 
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KS  i:!.*fcN*(YtrD)l/2.-SQRTF[{EN-l.+  (YB*D)]“2/4.+(YBD*D)*(EN+l.)l 

KS=XMINOF(KS,N) 

KS-XMAXOF(KS.O) 


Fig  3,10-2-MARSWR(SNR,N,FA,KASE,PN)  Rowchart  (Continued) 


Case  4 (Continued) 
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TEMP=SUM+TERM 


SUM>TEMP 


SUM=TEMP 


TL=TL*P/FL0ATF(2‘N-K) 
TERM=TERM*FLOAT(K)‘(G+TL)/ 
[Q*FL0ATF(N-K  + 1)*G1 
G=G+TL 
K=K-1 


518  4 No 

TERM=TS*Q*FL0ATF(N-KS)*(GS-TN)/[FL0ATF(KS  + 1)*GS1 
G=GS-TN 

TL=TN‘FL0ATF(2‘N-1-KS)/P 

K=KS+1 
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The  subroutine  is  entered  with  a value  for  the  exponent  of  the  false-alarm  probability. 
This  is  initially  converted  to  the  logarithm  of  the  false-alarm  number  (n')  according  to 

, f In  Po  1 

logics  = *oglo[in(i_pp^)J-  (3.10-1) 

For  a pulse  radar 

(3.10-2) 

and 

n = the  number  of  pulse  lengths  in  the  false-alarm  time 
N = the  number  of  pulses  integrated 

Pq  = the  probability  of  false  alarm  during  the  false-alarm  time  (taken  to  be  0.5) 
PpA  = the  probability  of  false  alarm  at  each  opportunity. 

Having  determined  the  false-alarm  number,  the  next  step  in  the  process  is  to  establish 
the  bias  level.  This  is  derived  for  the  square  law  of  the  combined  detector  and  integrator. 
Marcum  and  Swerling  [ 1 ] have  shown  that  the  square  law  permits  an  easy  solution  that 
differs  little  from  the  linear  law.  Consequently  the  bias  level  Yj,  is  calculated  from 

Mr,'  r'"*’ 

f(Y,)  = dY.  (3.10-3) 

This  is  accomplished  through  the  use  ot  an  iterative  procedure.  An  initial  value  for  the 
bias  level  (Yq)  is  calculated  from  equations  that  are  fitted  to  curves  developed  by  Marcum: 

Yo  = N [l 

and 


The  integral  of  Eq.  (3.10-3)  is  in  the  form  of  the  incomplete  gamma  function,  which  is 
readily  integrated  by  using  the  value  Yq  for  Yj,.  This  value,  f(Yo),  is  compared  with 
rtl  *'  or  Yjl  and.  if  the  difference  is  greater  than  zero  to  eight  significant  digits,  a fixed- 
<e>>  integration  process  (Huen’s  method)  is  initiated.  This  produces  an  improved  value 

•«*ing  to 


2.2n' 
7V(2/3+0.015n')  J 


(N>  12) 


(3.10-4) 


N(0 


(JV<12) 

5+O.Olln')  J 


(3.10-5) 


nvj)  * ^ ir'(yj)  + Ay>>i)1  (./=o,i) 


(3.10-6) 


3.10-11 


1 

i 
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YN-ie-y 

(N-  1)! 


f'(Y)  = 


and 


= Yj  + AY. 


(3.10-7) 


(3.10-8) 


A value  of  ±0.01  is  currently  being  used  for  AY  and  has  been  found  to  provide  sufficient 
accuracy.  The  integration  is  continued  until  f(Yj)  is  sufficiently  close  to  f(Yh). 

Having  selected  the  bias  level,  the  probability  of  detection  is  now  determined  for 
the  appropriate  Marcum-Swerling  target  case.  The  five  cases  are  identified  by  number, 
with  the  nonfluctuating  case  being  designated  case  0.  Each  case  will  be  considered  in 
turn. 

Case  0 

The  probability  of  detection  for  a target  with  a nonfluctuating  cross  section  (case  0) 
is  given  by  Marcum’s  Eq.  (49), 


nv 


= /:  (#-) 


IN~1)I2 


y/NFY)dY, 


(3.10-9) 


where  x is  the  signal-to-noise  ratio  and  is  the  modified  Bessel  function  of  the  first  kind 

Fehlner  [6]  has  shown  that  this  integral  can  be  expressed  as  an  infinite  summation 
as  follows: 


fc  = 0 


(Nxf 


k\ 


Z 

; = 0 


(3.10-10) 


or  alternatively 


„ ^ (ATjc)* 

/'„  = 1 - T.~kT  T. 


k = 0 


j = N-^k 


Jl 


(3.10-11) 


It  has  been  found  that  Eq.  (3.10-10)  converges  faster  than  Eq.  (3.10-11)  if  Yf,  > N{x  + 1 ] 
The  summation  is  carried  out  within  the  program  by  first  identifying  the  maximum  term 
and  then  performing  the  summation  about  that  point.  For  Eq.  (3.10-10)  the  maximum 
term  is  associated  with  the  value  of  k that  maximizes 


(Nxf 

fe!  (Af-l-t-fe)! 


(3.10-12) 


Through  the  ase  of  Stirling’s  approximation  for  the  factorial,  the  value  of  k that  produces 
a maximum  is  estimated  to  be 
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+ Yi,Nx 


(3.10-13) 


For  Eq.  (3.10-11)  the  maximum  term  is  associated  with  the  value  of  k that  maximizes 


(Nx)^ 

k\  XN  + k)\ 


(3.10-14) 


This  is  found  to  be 


femax  = -(l  • 


(3.10-15) 


Case  1 


Swerling  extended  Marcum’s  square  law  results  to  cover  fluctuating-target  returns. 
Case  1 applies  to  targets  that  can  be  considered  as  several  large  independent  fluctuating 
reflectors  with  approximately  the  same  reflective  cross  section.  The  echo  pulses  are 
assumed  to  be  constant  on  any  given  scan  but  are  independent  from  scan  to  scan.  The 
probability  density  function  for  the  input  signal-to-noise  ratio  is  assumed  to  be 


lV(x,x)  = -^  e'*/*  (x>0) 


(3.10-16) 


where  x is  the  mean  signal  to  noise  ratio  over  all  target  fluctuation.  The  resulting  for- 
mulas for  the  probability  of  detection  are  then  given  by 


Pd  = exp 


(-r^) 


(N=  1) 


(3.10-17) 


= 1 - jT  ' du  +(l  + j;^)exp(-j4l) 

CY^KI^MNX)  -v„N-2 


P l/lliV  £ 

du  (N>1). 


(3.10-18) 


Both  integrals  in  the  above  equation  are  in  the  form  of  the  incomplete  gamma  function 
and  are  readily  integrated  through  the  use  of  the  GAM  function. 


3.10-13 
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Case  2 

Case  2 applies  to  the  situation  in  which  the  fluctuations  are  independent  from  pulse 
to  pulse  and  the  probability  density  function  for  the  input  signal-to-noise  ratio  is  given  by 
Kq.  (97).  The  resulting  formulas  for  the  probability  of  detection  are  given  by 


Pfl  > 1 - / 


V(,/(1+X) 


(3.10-19) 


For  N = 1 this  reduces  to 


Pd  = exp 


(3.10-201 


riie  integral  in  Eq.  (3.10-19)  is  in  the  form  of  the  incomplete  gamma  function,  which 
again  can  be  readily  evaluated  through  the  use  of  the  GAM  function. 

Case  3 

Case  3 applies  to  targets  that  can  be  represented  as  one  large  reflector  together  with 
other  small  reflectors  or  as  one  large  reflector  subject  to  fairly  small  changes  in  orienta- 
tion. This  type  of  target  exhibits  a probability  density  for  the  input  signal-to-noise  ratio 
according  to 


lT(x,  ic)  = e-2x/x  (jc  > 0) . 
(jc)2 


(3.10-21 ) 


For  case  3 the  fluctuations  are  considered  to  be  independent  from  scan  to  scan.  l'h»'  re 
suiting  formula  for  the  probability  of  detection  is  given  by 


Pn  = 1 + 


c2  r 

-l)lV-2 


-.,r  e-“u^-2 


(N-2)C2 

i 


-v/(C-l)  g-uyN-2 
(N-2)! 


-1)C2  f''" 

' J (N-D! 


(3.10  22) 


1 Nx/2 


(3.10-23) 


3.10-14 
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Fehlner  [6]  has  shown  that  Eq.  (3.10-22)  can  be  expressed  as  follows: 


Pn  = 


P {N-2)\ 


y=o 


(1  - C) 


(N-2)C  I V-’ 

' - I'  - E 


J^2 


]'■ 


►(3.10-21) 


For  N = \ this  reduces  to 


^ L (3c  + 2)2j  \ 2 + x) 

) 


and  for  N = 2, 


(3.10-25) 


(3.10-26) 


For  N > 2,  Eq.  (3.10-24)  is  readily  evaluated  with  the  GAM  function. 


Case  4 


Case  4 applies  to  targets  that  exhibit  the  same  probability  density  function  as  those 
considered  in  case  3 but  with  the  fluctuations  considered  to  be  independent  on  a (lulse- 
to-pulse  basis. 


The  resulting  formula  for  the  probability  of  detection  is  given  by 


= 1 + 


where 


g = 


1 


1 + x/2 


(3.10-2h) 


Equation  (3.10-27)  can  be  expressed  as 

N 

I 

fe  = 0 


N-k 


„ 1 _ V V -JVJ /I  - g\  V ^ 

Pd  ^ g ^ k\(N-k)\  \ g ] j\ 

l._A  ' ' \ / .*  OAr_L  ' 


(3.10-2!)) 


j~2N-k 


After  the  probability-of-detection  calculation  is  completed,  control  of  the  program  i> 
returned  to  DETPROB. 


li 


) I 


I , 


n 


'■t 
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3.11  Subroutine  MATCH 


Subroutine  MATCH  is  called  by  the  SURSEM  Executive  Routine.  For  each  scan 
mode  the  subroutine  calculates  the  time  at  which  the  mode  first  scans  the  target  after  it 
has  come  within  the  instrumented  range. 

This  is  accomplished  as  follows:  The  components  of  vectors  A and  B (see  Fig.  3.11-1) 
are  first  calculated  from  the  input  initial  and  final  position  of  the  target  and  the  coordi- 
nates of  the  ship.  The  distance  d is  then  calculated  from 


d2  = 1^1  - (A2-R?^) 


(3.11-1) 


where  Rjn*  is  the  instrumented  range.  The  ratio  x/|B|  is  now  found: 

X _ distance  from  initial  point  to  a range  of  Ri„s 
|B|  distance  from  initial  point  to  final  point 


(3.11-2) 


and  is  given  by 


|B|  IBI  \ |B|  ) 


(3.11-3) 


This  ratio  is  used  to  determine  the  time  required  for  the  target  to  travel  from  its  initial 
point  to  the  point  where  it  comes  within  instrumented  range,  that  is, 


TARGET'S  INITIAL  POSITION 


TARGET'S  FINAL  POSITION 


Fig.  3.11-1  —Target-ship  geometry 
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(3.11-1) 


where  (,•  £ind  tf  represent  the  initial  and  final  times  of  the  target’s  trajectory,  respectively. 
The  quantity 

- ti{J) 


is  found  and  truncated  to  the  next  lowest  integer.  This  represents  the  number  of  scan.s 
made  by  mode  J during  the  time  interval  in  which  the  target  is  covering  the  distance 
from  its  initial  point  to  a range  of  R\ns-  The  time  at  which  mode  J first  scans  the  target 
after  it  has  come  within  the  radar’s  instrumented  range  can  now  be  determined. 

^scan('^=  (3.11f.( 

where  (,  (J)  is  the  starting  time  for  mode  <7.  This  is  determined  by  assuming  that  the  radar 
is  initially  scanning  in  mode  1 and  pointing  at  the  target.  Time  offsets  between  the  modes 
are  provided  by  inputs,  and  the  quantity  At(J)  represents  the  interlock  period  for  mode  J. 

Table  3.11-2  is  a dictionary  of  the  variables  used  in  Subroutine  MATCH.  The  flow- 
chart is  shown  in  Fig.  3.11-3. 


Table  3.11-2  — MATCH  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

1 

Description 

A(K) 

The  feth  component  of  the  vector  A (n.mi.) 

ADOTB 

A-B 

Dot  product  of  vectors  A and  B 

ADOTB2 

(A-B)2 

Dot  product  squared 

AMAG2 

|A|2 

Magnitude  of  A squared 

B(K) 

The  feth  component  of  the  vector  B (n.mi.) 

BMAG2 

|Bl2 

Magnitude  of  B squared 

DISC 

d2B2 

Quantity  used  in  simplifying  calculations 

NSCAN 

Number  of  scan  modes 

RMODE(I,7) 

^ins 

Instrumented  range  (n.mi.)  ; 

R.MODE(I,9) 

^8can(*^ 

The  time  at  which  mode  J first  scans  target  after  the  target  ha.- 
come  within  instrumented  range 

RMODE(J,5) 

At(J) 

Interlock  period  for  mode  J (hr) 

RMODE(J,6) 

Time  offset  for  mode  <7  (hr) 

SHIP(K) 

Position  coordinates  of  ship  (n.mi.) 

TERM 

\dB\ 

Square  root  of  DISC 

UMINUS 

xl\B\ 

See  Eq.  (112) 

XN 

N(J) 

The  number  of  scans  made  by  mode  J while  the  target  is  going  ' 
from  its  initial  point  to  instrumented  range 

XSCAN 

fscan^*^ 

Time  at  which  mode  .7  first  scans  the  target  after  it  has  come 
within  instrumented  range  (hr) 

XYZF(1,K) 

Pinal  position  coordinates  of  target  1 (n.mi.) 

XYZKl.Kl 

Initial  position  coordinates  of  target  1 (n.mi.) 

3.11-2 
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Fig.  3.11-3-MATCH  nowchart 
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Acltliiion£)l  ( heck  ic 
see  it  tari]ct  comes 
within  range 


XSCAN  = XYZI(1,4)+WMINUS*[XYZF(1,4)-XYZI(1,4)1 


Is  target  initially 
within  instrumented 
range  tor  this  mode? 


RMODE(l,9)>XSCAN 


XN  = AINT[{XSCAN-RMODE(l,9)}/RMODE(l,5)l 
RMODE(l,9)  = RMODE{l,9)  + XN*RMODE(l,5) 


Is  mode  / looking  at 
target  at  the  instant 
it  cOdies  within 
instrumented  range? 


XSCAN  = RMODE(l,9) 


RMODE(l,9)  = RMODE(l,9)  + RMODE(l,5) 


RETURN 


Fig.  3.1 1-3— MA’yCH  flowchart  (Continued) 
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3.12  Subroutine  MULPTH 

Subroutine  MULPTH  is  called  by  Subroutines  DETPROB  and  JAM.  Its  purpose  is 
to  calculate  the  pattern-propagation  factor  (FAC)  for  a specified  target  (ITAR). 

For  computational  purposes  the  atmosphere  is  divided  into  three  regions:  the  inter- 
ference region,  the  intermediate  region,  and  the  diffraction  region  (see  Fig.  3.12-1).  The 
propagation  factor  is  determined  only  for  targets  above  the  horizon— that  is,  in  the  inter- 
ference region  and  part  of  the  intermediate  region.  This  can  be  readily  accomplished  for 
targets  in  the  interference  region  and  diffraction  regions,  but  there  are  no  numerical 
methods  that  are  easily  applicable  to  field-strength  determination  in  the  intermediate 
region.  Consequently  the  method  employed  to  find  the  pattern-propagation  factor  for 
targets  in  the  intermediate  region  is  an  interpolation  procedure  that  interpolates  between 
the  interference  region  and  the  diffraction  region.  In  other  words,  the  field  strength  is 
determined  for  points  in  the  interference  and  diffraction  regions  at  the  altitude  of  the 
target  under  consideration,  and  this  information  is  then  used  to  determine  the  field 
strength  in  the  intermediate  region  by  a curve-fitting  process.  Details  of  the  analytical 
process  are  outlined  below. 

The  initial  step  in  the  calculation  process,  which  is  carried  out  for  each  new  fre- 
quency mode,  is  the  determination  of  the  complex  dielectric  constant,  given  by 

ec  = ei  - i60Xa  (3.12-1) 

where  ei  is  the  ordinary  dielectric  constant,  X is  the  wavelength,  and  a is  the  conductiv- 
ity. Values  of  ej  and  a as  a function  of  frequency  are  given  in  Refs.  7 and  8.  The 
values  used  in  MULPTH  are  given  in  Table  3.12-2.  A linear  interpolation  process  is  used 
for  intermediate  values. 


INTERFERENCE 

REGION 


TANGENT  RAY 


Fig.  3.12-1 —Interference,  intermediate,  and  diffraction  regions 


Table  3.12-2— Values  of  Frequency,  Dielectric  Constant,  and  Conductivity  Used  in  MULPTH 


/^(MHz) 

ei 

o (mhos/m) 

<1500 
1500  to  3000 
3000  to  10  000 

80 

80-  (0.00733(/'-  1500)] 
69-  (0.0005714 (/■-  3000)) 

4.3 

4.3  + (0.00148(/'-  1500)1 
6.52  + (0.001354 (/■-  3000)] 

Fig.  3.10-2-MARSWR(SNR.N.FA.KASE.PN)  Howchart  (Continued) 
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The  next  step  in  the  calculation  is  the  determination  of  factors  that  will  b used  in 
calculating  the  value  of  the  pattern-propagation  factor  for  a target  in  the  diffraction 
region.  The  propagation  factor  in  the  Effraction  region  is  given  by  (see  Ref.  8,  page  141) 

F=2V^e-^l*|l/l(Zi)l7i(22)l  • (3.12-2) 


X is  the  target  ground  range  in  natural  units, 


where  L is  the  natural  unit  of  range, 


(3.12-3) 


(3.12-4) 


a is  the  Earth’s  effective  radius,  and  fcg  is  the  radar  wave  number  multiplied  by  the  index 
of  refraction  at  the  Earth’s  surface.  Only  the  factors  that  are  target  independent— namely, 
Cj  and  l/j  (Zj )— are  calculated  on  the  initial  pass  for  a new  frequency  mode.  The  term 
is  the  imaginary  part  of  the  parameter  /tj , which  is  also  used  in  evaluating  U\(2\ ) in 
Subroutine  UFUN.  The  parameter  is  given  by  (Ref.  8,  page  111) 


Ai 


2.3381  exp 


ftp 


(3.12-5) 


where  H is  the  natural  unit  of  height. 


H = 


(3.12-6) 


p is  given  by 

P = - l)^^^^cos  e + , 

(3.12-7) 


and  6 is  the  linear  polarization. 


The  location  of  the  reflection  point| 
and  the  determination  of  the  grazing 
angle  is  the  next  step  in  the  calculation 
process.  The  ground  range  of  the  reflec- 
tion point  (ri ) is  a function  of  target 
height  (/i2>,  antenna  height  (hi ),  and 
target  ground  range  (r)  (see  Fig.  3.12-3). 
Ihis  relationship  is  expressed  by 


TARGET 


Fig.  3.12-3— Oeom«tric*l  pir«n»t«r» 
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2r?  - 3rr?  + (r2  - 2a(Hi  +//2)lri  + 2aH^r  = 0 


V here 


W,  = ^ll--1  0 = 1,2). 


Equation  (3.12-8)  has  the  solution 


r / 0 

'T  = Y ~ ^2)^  cos  ( — g — 


where 


(3.12-10) 


P=  |i[a(//,  >//2) 


(3.12-11) 


0 = arccos 


2ar|Wi  - H2I 


The  grazing  angle  is  then  found  from  the  approximation 


tan  0 % -^(1  - -J.)_  -?!. 


a / 2o 


If  the  grazing  angle  is  found  to  be  less  than  or  equal  to  zero,  the  pattern-propagation 
factor  is  set  equal  to  1 X 10' 20  and  control  of  the  program  is  returned  to  DETPROB.  If 
0 IS  greater  than  zero,  the  divergenc'e  factor  D and  the  path-length  difference  AR  are 
calculated  according  to 

r r o T 1 ^/2 

/5  = _ ^LLUH]  (Rl^/g2)^flsin0cos0  Ml 

\\  a } (Ri  +R2)flsin  0 + 2Ri/?2  \'-/J 


AR  = 


(Ri  +R2)G 

1 + (1  - G)^'2 


where 


2 

/ 2 sin  0 \ „ 

^ “ (ri  + R2) 


(3.12-15) 


(3.12-16) 


and  R\,  R2  are  slant  ranges  from  the  antenna  and  target  to  the  reflection  point,  respectively. 
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Equation  (3.12-14)  is  a simplified  version  of  Eq.  (16)  in  Ref.  8,  page  406,  and  Eq. 
(3.12-15)  is  readily  derived  from  basic  trigonometric  relationships. 

The  path-length  difference  is  now  compared  to  X/4  since  this  is  the  generally  accepted 
limit  of  validity  for  the  analytical  method  applied  to  the  interference  region.  If  AR  < X/4, 
the  target  is  assumed  to  be  in  the  intermediate  region,  and  the  preliminary  step  in  the 
interpolation  process  is  carried  out.  This  consists  of  finding  the  location  of  a point  that 
has  the  altitude  of  the  target  under  consideration  but  with  a path-length  difference  of 
X/4.  The  method  used  is  discussed  under  Subroutine  RNGCEN.  This  information  is  used 
in  the  interpolation  scheme  for  determining  the  pattern-propagation  factor  in  the  inter- 
mediate region. 

The  next  step  in  the  calculation  process  is  the  computation  of  the  complex  reflection 
coefficient.  The  reflection  coefficient  is  related  to  the  linear  polarization,  and  the  equa- 
tions for  the  horizontal  polarization  and  vertical  polarization  reflection  coefficients  are 
given  by 

Cc  sin  \}/  + (Be  - cos2 


r'/i  " Pa® 


-,■0^  ^ sin  i//  - (6c  - cos^ 
sin  i//  + (Cc  - cos2 


(3.12-18) 


where  p is  the  intrinsic  reflection  coefficient  and  <j)  is  the  phase  change  for  seawater.  For 
other  than  vertical  or  horizontal  polarization  the  reflection  coefficient  is  given  as  the 
vector  sum  of  the  horizontal  and  vertical  components: 


r = PQe-‘^  = [(r^  cos  0)2  + (r„  sin  0)2]’ 


(3.12-19) 


The  two  remaining  parameters  that  contribute  to  the  pattern-propagation  factor  are 
the  roughness  factor  and  the  directional  field  strength  ratio.  The  roughness  factor  is 
calculated  from  a formula  found  in  Ref.  7: 


= exp 


H sin  \p 
~X 


(3.12-20) 


Equation  (3.12-20)  was  developed  under  the  assumption  that  the  sea  surface  has  a Gaussian 
height  distribution  with  standard  deviation  //*.  For  a sea  surface  with  approximately 
sinusoidal  waves  and  amplitude  a. 

««  = (3.12-21) 


The  field-strength  ratios  f(9i)  and  f(02)  for  the  direct  and  reflected  rays  are  com- 
puted in  Subroutine  GAIN. 
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It  is  now  possible  to  compute  the  pattern-propagation  factor  for  the  point  in  question 
according  to 


F 


1 


. A02) 
nei) 


PQDrsexp{-i[kQAR  + 0]) 


(3.12-22) 


The  point  in  question  will  be  either  the  target  position  if  the  target  is  in  the  interference 
region  or  the  point  corresponding  to  a path-length  difference  of  X/4  if  the  target  is  above 
the  horizon  and  in  the  intermediate  region. 

For  targets  in  the  interference  region  the  calculation  process  is  now  complete,  and 
control  of  the  program  is  returned  to  DETPROB. 

For  targets  in  the  intermediate  region  additional  computation  is  required.  The 
pattern-propagation  factor  must  be  found  for  a point  in  the  diffraction  region  that  will 
be  used  as  the  lower  bound  in  the  interpolation  procedure.  A point  that  is  twice  the 
horizon  distance  from  the  antenna  is  chosen  as  being  representative  of  the  diffraction 
region.  Subroutine  UFUN  is  now  called  to  determine  the  value  of  the  parameter  UiiZi) 
for  this  point,  and  the  pattern-propagation  factor  is  calculated  according  to  Eq.  (3.12-2). 
The  upper  bound  for  the  interpolation  procedure  is  the  value  of  pattern-propagation  fac- 
tor that  was  calculated  for  the  point  with  a path-length  difference  of  X/4  [Eq.  (3.12-22)], 
The  lower  and  upper  bound  values  of  the  pattern-propagation  factor  are  presented  to 
Subroutine  INTER,  which  carries  out  the  interpolation  process  to  determine  the  pattern- 
propagation  factor  at  the  target.  This  completes  the  calculation  process,  and  control  of 
the  program  is  returned  to  Subroutine  DETPROB. 

A dictionary  of  the  variables  used  in  Subroutine  MULPTH  is  given  in  Table  3.12-4. 
Figures  3.12-5  and  3.12-6  are  macro  and  micro  flowcharts,  respectively. 


Table  3.12-4  - MULPTH  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

CA 

Function  of  complex  dielectric  constant  and  polarization  used 
in  UFUN 

CGAM 

r 

Reflection  coefficient 

CGAMH 

T// 

Horizontal  polarization  reflection  coefficient 

CGAMV 

Tv 

Vertical  polarization  reflection  coefficient 

CTEMY 

Complex  dielectric  coefficient 

CUl 

Parameter  used  in  evaluating  F (see  UFUN) 

DISP 

D 

Divergence  factor 

EPSI 

Ordinary  dielectric  constant 
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Table  3.12-4  — MULPTH  Variable  Dictionary  (Continued) 


FORTRAN 

Variable 

Algebraic- 

Notation 

Description 

FAC 

F 

Pattern-propagation  factor 

FACl 

F 

Pattern-propagation  factor 

GD 

fiOi) 

Field  strength  ratio  for  direct  ray 

GRRAD 

Ground  range  from  radar  to  reflection  point  (m) 

GRRT 

r 

Ground  range  to  target  (m) 

GRTAR 

'"2 

Ground  range  from  target  to  reflection  point  (m) 

GV 

f(02) 

Field  strength  ratio  for  reflected  ray 

H 

H 

Natural  unit  of  height  = (2kQ/a)~^^^ 

HR 

^1 

Height  of  antenna  (m) 

HT 

^2 

Height  of  target  (m) 

ITAR 

Target  under  consideration 

ISWIT 

Indicator  takes  on  values  0, 1,  where  0 = initial  pass  or  new 
mode,  1 = same  mode  as  preceding  pass 

L 

L 

Natural  unit  of  length  = 2(feo4/fl2)~^/^ 

PHIREF 

0 

Reflection  coefficient  phase  angle  (rad) 

POLRZ 

d 

Linear  polarization  (deg)  (0°  = horizontal,  90°  = vertical) 

PTHDIF 

AR 

Path-length  difference  (m) 

RE 

a 

4/3  radius  of  the  Earth  (m) 

RHOREF 

Po 

Intrinsic  reflection  coefficient 

SIGl 

o 

Conductivity  (mhos/m) 

SRRAD 

Slant  range  from  radar  to  reflection  point  (m) 

SRTAR 

«2 

Slant  range  from  target  to  reflection  point  (m) 

TANPSI 

tan  0 

Tangent  of  grazing  angle 

WVL 

X 

Wavelength  (m) 

XFRE 

Frequency  of  the  next  mode  to  be  considered  (MHz) 

XIMCA 

Imaginary  part  of  CA 

XKPAR 

k 

Wave  number  = 27t/X 

XKZERO 

*0 

kno 

XMUR 

Roughness  factor 

XNAT 

r!L 

Ground  range  to  target  in  natural  units 

XNATl 

Range  corresponding  to  AR  = X/4  in  natural  units 

XNAT2 

2rnlL 

Twice  the  horizon  range  in  natural  units 

XNZERO 

'>0 

Index  of  refraction  at  the  Earth’s  surface 

Z1 

Antenna  height  in  natural  units 

Z2 

Z2 

Target  height  in  natural  units 
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Fig.  3.12-6-MULPTH(ITAR,FAC)  nowchart  (Continued) 
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CoiTipuie  complex  retleciiofi  coeHicieni 


CTEMW  = CSQRT(CTEMY-COSPSI*COSPSI) 
CGAMV=(CTEMY‘SINPSI-CTEMW)/(CTEMY*SINPSI+CTEMW) 
CGAMH=SINPSI-CTEMW)/(SINPSI  + CTEMW) 

CGAM  = {1.5*CLOG(CGAMH*COS(POLRZ/RADIAN)l}**2 
+ {CGAMV*SIN(POLRZ/RADIAN)}**2 
CGAMI=AIMAG|CGAM) 


Chock  for  correct  root 


Yes 


CGAM  = CMPLX{REAL(CGAM),3.1416+CGAM|} 


51  ♦- 


Calculate  roughness  factor 


CGAM  = CEXP(CGAM) 

RH0REF  = CABS(CGAM) 

PHI  REF=AIMAG  {clog  (CGAM)} 
TEMG1  = (2.*XKPAR*SIGMAH‘SINPSI)“2 
XMUR  = EXP(-TEMG1/2) 


Field  strength  ratio 
for  reflected  ray 

Field  strength  ratio 
for  direct  ray 


r 


CALLGAINd.lTAR.GV) 


CALL  GAINIO.ITAR.GD) 


3 

3 


FACl  = CABS(l.  + GV/GD*RHOREF*DISP*XMUR* 
CEXPICI*(-XKZER0*PTHDIF-PHIREFI1) 


Interference  region? 


Twice  the  Z2  = HT/H 

horizon  range  XNAT2  = 2.‘{SQRT(2.*RE*CHT)+SQRT(2.*RE*CHR)}/XL 


FAC=FAC1 


L^return"^ 


Fig.  3.12-6-MULPTH(ITAR,FAC)  flowchart  (ConUnued) 


3.12-11 


K 


KAPLAN,  GRINDLAY,  AND  DAVIS 


Fig.  3.12-6— MULPTH(ITAR,FAC)  flowchart  (Continued) 


•J 


I 


3.12-12 


NRL  REPORT  8037 


3.13  Subroutine  N’EVVPOST 


Subroutine  Nl^WPOST  is  called  by  Subroutine  NEXTSCN  and  the  SL’RSEM  Execu- 
tive Routine.  When  called  by  NEXTSCN,  it  provides  position  information  for  the  primary 
target  (i.e.,  the  target  that  is  being  considered  for  detection  purposes):  when  called  by  the 
Executive  Routine,  it  provides  position  information  for  all  targets. 

NEWPOST  first  determines  the  ratio  of  elapsed  time  to  total  target  time  according  to 


c - 

tf[]\  - IqU) 


(3.13-1) 


where  t is  current  lime.  toiJ)  is  the  initial  or  starting  time  for  target  J.  and  tfiJi  is  the 
final  time  for  target  J. 


The  target  coordinates  with  respect  to  the  designated  origin  are  computed  from  AT 
as  follows: 

x(k.  Jt  = ,vo)/c.  J)  + AT[xf{k.J\  - XQik.J)]  (fe=  1,2,3).  (3.13-2) 

These  coordinates  are  transformed  to  a radar-centered  coordinate  system  by  the  following 
equation: 


yik.J)  = xik.  J)  - -v„ </)  (lc=1.2,  3) 


(3.13-3) 


The  range  is  then  given  by 


= V’  j,|2 


(3.13-4) 


The  target  elevation  wnth  respect  to  the  horizon  (a)  is  determined  from  approxima- 
tions made  to  the  geometry  of  Fig.  3.13-1.  The  distance  D can  be  found  from 


D = [y(l./)2  + y(2.  .7)-]^ 


(3.13-5 ) 


It  can  also  be  represented  by 


D ^ (2oo/it)’  ■ + (2ao/ia)'  - 


(3.13-6) 


where  oq  is  4 3 of  the  Earth’s  radius.  Equation  (3.13-6)  can  now  be  solved  for  hj  to  yield 


D I 1 •'* 


(3.13-7) 


where  /ij  is  in  nautical  miles.  If  it  is  assumed  that  triangle  ABT  is  a right  triangle,  which 
is  a good  approximation  for  targets  at  ranges  of  less  than  100,000  feet,  then 


3.13-1 


I 


or 


tan  a 


(3.13-8) 


= _ I2HI  _ 

D I95.2  Dim 


(3.13-9) 


Target  azimuth  0 is  given  by 

0 = tan-l^7H!-  (3.13-10) 

y(i.«^) 

This  completes  the  computational  procedure  in  NEWPOST,  and  program  control  is 
returned  to  the  calling  subroutine. 

Table  3.13-2  lists  the  variables  used  in  Subroutine  NEWPOST.  The  flowchart  is 
shown  in  Fig.  3.13-3. 
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Table  3.13-2  — NEWPOST  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

BPRIME 

tan  a 

Tangent  of  target  elevation  measured  from  tbe  horizon 

D 

D 

Ground  range  to  target  under  consideration  at  time  T (n.mi.) 

DEL(I) 

Coordinates  of  target  J with  respect  to  radar  at  time  T (n.mi.): 

/ = 1,  jr  coordinate 

y(2,J) 

I - 2,  y coordinate 

,V(3,  J) 

1 = 3,  z coordinate 

DOTP 

Dot  product  of  vectors  defined  by  VEL(l)  and  DEL(I)  or 
cosine  of  angle  between  the  vectors 

DSTAR 

Distance  from  ship  to  horizon  (n.mi.) 

DT 

AT 

Ratio  of  time  in  flight  to  total  flight  time  for  target  under 
consideration 

DX 

y(  1 , «/) 

X component  of  DEL(I)  (n.mi.) 

DY 

,v(2.  J) 

y component  of  DEL(I)  (n.mi.) 

DZ 

y{3,J) 

z component  of  DEL(l)  (n.mi.) 

NOLD 

Number  of  targets  considered  on  preceding  pass 

NT 

Number  of  targets  to  be  considered 

SHIP(4) 

\fha 

Square  root  of  anUmna  height  (Vn.mi.) 

T 

t 

Time  for  which  the  position  of  targets  will  be  considered;  set 
by  NEXTSCN  (s) 

TOLD 

Value  of  T on  preceding  pass  (s) 

TRGPOS(J,I) 

Position  of  target  J at  time  T (n.mi.) 

X{l,J) 

I = 1 , or  coordinate 

x(2,J) 

/ = 2,  y coordinate 

x(3,J) 

/ = 3,2  coordinate 

TRGPOS(J,4) 

R 

Slant  range  to  target  (n.mi.) 

TRGPOS(J,5) 

d 

Target  azimuth  (rad) 

TRGPOS(J,6) 

a 

Target  elevation  measured  from  the  horizon  (rad) 

TRGPOS(J,7) 

D 

Ground  range  to  target  J (n.mi.) 

VEL(F) 

Coordinates  of  target’s  final  point  with  respect  to  its  initial 
point  (n.mi.): 

I = l,x  coordinate 
/ = 2,  y coordinate 
/ = 3,  2 coordinate 

VELMAG2 

Magnitude  of  vector  VEL(I) 

XYZF(J.l) 

Final  position  and  time  for  target  J 

XYZI(J,1) 

Initial  position  and  time  for  target  J (n.mi.): 

/ = 1,  jr  coordinate 

Jro(2.J) 

/ = 2,  y coordinate 

f = 3,2  coordinate 

to(J) 

1 = 4,  time  (s) 

m 

A 
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Fig.  3.13-3-NEWPOST'NT)  Howchart 
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3.14  Subroutine  NEXTSCN 

Subroutine  NEXTSCN  is  called  by  the  Executive  Routine.  Its  primary  function  is  to  j 

determine  which  scan  mode  will  next  try  to  see  target  1 and  to  increment  game  time  to  j i 

correspond  with  this  event.  NEXTSCN  also  determines  the  range,  azimuth,  and  elevation  j 

of  target  1 at  this  instant. 

This  is  accomplished  by  considering  the  time  at  which  each  scan  mode  will  next  see  i 

the  target  and  by  selecting  the  mode  that  has  the  shortest  time  until  target  illumination.  1 

Subroutine  NEWPOST  is  then  called  to  calculate  the  range,  elevation,  and  azimuth  of  the  - i ' 

target  that  correspond  to  the  time  at  which  the  selected  mode  next  sees  the  target.  This  i ; 

essentially  completes  the  process;  however,  checks  must  be  made  to  ascertain  that  the  > 

target  is  U)  above  the  radar  horizon,  (b)  within  the  3-dB  beamwidth  for  a pencil  beam  or 
within  the  first  null  for  a cosecant-squared  beam,  (c)  within  instrumented  range,  and  (d)  be- 
yond minimum  range.  If  these  conditions  are  satisfied,  control  of  the  program  is  returned 
to  the  Executive  Routine.  If  not,  the  scan  mode  with  the  next  shortest  time  until  target 
illumination  is  addressed,  and  this  procedure  is  continued  until  all  conditions  are  met  or 
the  game  time  is  exceeded. 

See  Table  3.14-1  for  the  variables  used  in  NEXTSCN.  The  flowchart  for  this  sub- 
routine is  shown  in  Fig.  3.13-2.  ! 


Table  3.14-1  - NEXTSCN  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

ENDTIME 

Time  at  which  game  is  ended  (s) 

NSCAN 

Number  of  scan  modes 

RC(2) 

Antenna  pattern  function  indicator  (0  = pencil  beam,  1 = csc^ 
beam) 

RC(5) 

3-dB  vertical  beamwidth  (rad) 

RMODE(J,2) 

Upper  elevation  coverage  for  mode  J 

RMODE(J,5) 

Interlook  period  for  mode  J (s) 

RMODE(J,7) 

Instrumented  range  for  mode  J (n.mi.) 

RMODE(J,9) 

Next  time  at  which  scan  mode  J will  see  target  (s) 

SMODE(J,l) 

Minimum  range  (n.mi.) 

T 

Current  game  time  (s) 

TMIN 

Minimum  value  of  RMODE(J,9)  when  all  scan  modes  are 
considered  (s) 

TRGPOS(l,6) 

E 

Target  elevation  (rad) 

TRGPOS(J,4) 

R 

Range  to  target  J (n.mi.);  set  negative  in  NEWPOST  if  target  is 
beyond  horizon 
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Fig.  3.14-2-NEXTSCN  flowchart 
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3.15  Subroutine  RNGCEN 


Subroutine  RNGCEN  is  called  by  Subroutine  MULPTH.  Its  function  is  to  determine 
the  location  of  the  reflection  point  on  a 4/3  Earth’s  radius,  corresponding  to  a path-length 
difference  of  X/4.  This  information  is  utilized  in  evaluating  the  propagation  factor  in  the 
intermediate  region. 


The  subroutine  is  entered  with  a value  of  sin  \p  that  corresponds  to  the  flat-Earth 
solution  to  the  problem; 


. , ^(X\  hr  + ht 

sin  u/  = 2 -r  I 

(X/4)2  -t-  Ahrht 


(3.15-1) 


where  X/4  represents  the  path-length  difference  and  hr,  are  defined  in  Fig.  3.15-1.  This 
value  of  sin  4/  is  used  to  calculate  the  path-length  difference  A from  the  following  equa- 
tion, whose  development  will  be  discussed  later: 


A = 


4 sin  \}/ 


1 [1  (2/ir/asin2  4/)]^'^  1 + [1  + (2/it/a  sin^ 

JTr  h, 


(3.15-2) 


The  function  f,  defined  as 


A ^ 

A - 4- 


(3.15-3) 


is  evaluated,  and  its  absolute  value  is  compared  to  X/40.  If  \f\  > X/40,  the  derivative  of 
f with  respect  to  sin  4^  is  determined  and  used  to  calculate  a new  value  of  sin  4>  '■ 


sin  4jnevi  = sin  i/zoid  - f 


dfid  (sin  4i) 


(3.15-4) 


A new  value  of  A is  then  computed  using  sin  4^ newt  ^^'s  process  is  continued  until 
the  convergence  criterion  |^|  X/40  is  satisfled.  When  this  occurs,  the  corresponding 

values  of  ri,  T2,  iJi,  and  R2  are  calculated  and  control  of  the  program  is  returned  to 
MULPTH. 


TARGET 


1 

l!' 
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In  order  to  reduce  Eq.  (3.15-11)  to  Eq.  (3.15-2),  and  i?2  must  be  expressed  in  terms 
of  hr,  ht,  and  sin  i^.  This  is  accomplished  as  follows:  From  Fig.  3.15-2  observe  that 


^ hf  - Rf  ^ 2ah, 

2Ria  f?l  \ 2a  / 2o  ’ 


(3.15-12) 


Neglecting  hr/2a  gives 


. hr 

= ST 


2a 


(3.15-13) 


Applying  the  quadratic  formula  to  Eq.  (3.15-13)  yields 

2hr 

(3.15-14) 

sin  \l/  + [sin^  ij/  -t-  (2hrla)y 


Similarly 

2ht 

R2  = — ■ (3.15-15) 

sin  i//  + [sin^  i//  + (2ht/a)y 

The  above  substitutions  reduce  Eq.  (3.15-11)  to  Eq.  (3.15-2). 

The  variables  used  in  the  RNGCEN  subroutine  are  listed  in  Table  3.15-3.  The  flow- 
chart is  shown  in  Fig.  3.15-4. 


Table  3.15-3  — RNGCEN  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 
[ . 

Description 

DELT 

X/4 

Wavelength  divided  by  four  (m) 

HR 

hr 

Height  of  antenna  (m) 

HT 

ht 

Height  of  target  (m) 

R1 

Ri 

Slant  range  from  radar  to  reflection  point  (m) 

R2 

R2 

Slant  range  from  reflection  point  to  target  (m) 

RE 

a 

4/3  of  the  Earth’s  radius  (m) 

S 

sin  i// 

Sine  of  the  grazing  angle 

SRI 

'“1 

Ground  range  from  radar  to  reflection  point  (m) 

SR2 

'•2 

Ground  range  from  reflection  point  to  target  (m) 

I 
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ASS=RE*S*S 
V1=SQRT(1.+2  HR/ASS) 
V2=SQRT(1+2.HT/ASS) 
V=(1.+V1)/HR  + (1.+V2)/HT 
F = 4.»S/V-DELT 
FP=4.»V+8./ASS*(1./V1  + 1./V2) 
FP=FP/(V*V) 
S=S-F/FP 


ASS=RE*S*S 

T=2.*HR 

R1=T/(S+SQRT(ASS+T)/RE) 

T=2/HT 


R2=T/[S+SQRT(ASS+T)/RE1 
SR1  = SQRT[(R1»R1-HR»HR)/n  + HR/RE)] 
SR2=SQRT((R2*R2-HT*HT)/(1  + HT/RE)1 
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3.16  Subroutine  TARGETS 

Subroutine  TARGETS  is  called  by  the  SURSEM  Executive  Routine.  Its  primary 
function  is  to  read  and  list  position  and  timing  data  for  each  target.  The  data  are  also 
modified  for  compatibility  with  other  subroutines;  that  is,  position  data  in  thousands  of 
feet  are  converted  to  nautical  miles,  time  in  seconds  is  converted  to  hours,  and  watts  per 
megahertz  are  converted  to  watts  per  hertz. 

Subroutine  TARGETS  also  sets  up  a dummy  target  used  to  locate  a clutter  cell.  This 
target  is  assigned  the  x and  y coordinates,  and  the  initial  and  final  times  of  target  1.  Its 
elevation  is  assumed  to  be  zero. 

In  addition,  the  subroutine  determines  coefficients  used  in  Eq.  (3.16-1)  for  calculating 
the  target’s  radar  cross  section  as  a function  of  aspect  angle.  This  calculation  is  performed 
by  Subroutine  TARSIG.  Equation  (3.16-1)  was  developed  under  the  assumption  that  the 
target’s  radar  cross  section,  as  viewed  circumferentially,  generates  a lobing  structure  and 
that  this  structure  can  be  represented  by  a linear  combination  of  the  functions  cos  20, 
cos  40,  and  cos  80,  where  0 is  the  angle  between  the  line  of  sight  to  the  target  and  the 
target’s  broadside  axis  (see  Fig.  3.17-3): 

o(0)  = Ai  cos  20  + A2  cos  40  + A3  cos  80  + A4  . (3.16-1) 

Expressions  for  the  coefficients  A,-  as  functions  of  the  broadside,  head-on,  and  mini- 
mum cross  sections  are  developed  as  follows:  First,  the  expression  for  o(0)  is  differen- 
tiated and  expressed  in  terms  of  cos  0 and  sin  20,  that  is, 

a'{0)  = 2Aisin20  + 8A2(2  cos^  0 - 1)  sin  20 

+ 32i43(16  cos®  0-24  cos'*  0+10  cos^  0 - 1)  sin  20  . (3.16-2) 

It  is  now  assumed  that  the  minimum  radar  cross  section  occurs  at  0 = tt/3,  or  60 
degrees  off  broadside.  (This  is  consistent  with  measurements  made  on  the  type  of  air- 
craft that  is  normally  encountered  in  applications  of  the  program.)  Setting  o'  = 0 and 
cos  0 = -1/2  in  Eq.  (3.16-2)  yields 

4As  - 2A2  + Ai  = 0.  (3.16-3) 

For  0 = 0,  the  radar  cross  section  is  given  by  the  input  value  for  the  broadside  cross 
section  B.  These  values  together  with  Eq.  (3.16-3)  reduce  Eq.  (3.16-1)  to 

0(0)  = 3A2  - 3A.3  + 4A2  = B.  (3.16-4) 

For  0 = ir/2,  the  radar  cross  section  is  given  by  the  input  value  for  the  normal  cross 
section  N,  and  hence 

-A2  + 5A3  + A4  = N.  (3.16-5) 

For  0 = w/3.  the  radar  cross  section  is  given  by  the  input  minimum  value  M.  This  yields 


3.16-1 


r 
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-3i42  + 3^43  + 2/I4  = 2Af.  (3.16-6) 

Solving  Eqs.  (3.16-3)  through  (3.16-6)  for  Ai,  i42,  ^43,  and  i44  gives  the  following  results: 


. B + 2M 

A4  - 2 ’ 

(3.16-7) 

B + 3JV  - 4A4 
As  - j2 

(3.16-8) 

A2  = 5A3  - AT  + A4  , 

(3.16-9) 

Ai  = 2A2  ~ 4A3  . 

(3.16-10) 

Equations  (3.16-7)  through  (3.16-10)  are  the  expressions  that  are  found  at  the  end  of  the 
subroutine.  The  values  generated  are  passed  to  Subroutine  TARSIG  for  computing  the 
radar  cross  section. 

The  reader  is  referred  to  Table  3.16-1  for  a dictionary  of  the  variables  used  in 
TARGETS.  The  flowchart  for  this  subroutine  is  shown  in  Fig.  3.16-2. 


i 


Table  3.16-1  — TARGETS  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

A(I) 

Weighting  factors  used  in  determining  the  radar  cross  section 
(RCS) 

MODEL(J) 

Marcum-Swerling  cross-section  model  indicator 

NUMTGT 

Number  of  targets 

SIGJAM(J) 

Jamming  energy  for  target  J (W/MHz  or  W/Hz) 

SIGTAR(I.J) 

Radar  cross  section  for  target  / (m^ ); 

m 

N 

J = 1,  head-on  RCS 

B 

J = 2,  broadside  RCS 

M 

J = 3,  minimum  RCS 

XYZF(J,K) 

Final  coordinates  for  target  J: 

K = l,x  coordinate  ' 
K = 2,  y coordinate 
K = 3,  z coordinate 
X = 4,  time  (s  or  hr) 

<■  (1Q3  ft  or  n.mi.) 

XYZI(J.K) 

Initial  coordinates  for  target  J 

3.16-2 
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Fig.  3.16-2— TARGETS  flowchart 


3.16-3 


READ,[XYZI(J,I),I  = 1,41,(XYZF(J,I),I  = 1,41 
ISIGTAR(J,I),I  = 1,3]  ,SIGJAM(J),MODELU) 


DO  35  1 = 1,3 


XYZI(J,I)=XYZI(1,J)/6.0761 

XYZF(J,I)=XYZF(I,J)/6.0761 


XYZI(J,4)=XYZ1(J, 41/3600 
XYZF  (J,4)  =XYZF  (J,4)/3600 
SIGJAM(J)=SIGJAM(J)/1.0E+6 


NUMTGT=NUMTGT+1 
XYZI(NUMTGT,1)=XYZI(1,1) 
XYZI  (NUMTGT,2)=XYZI  (1 ,2) 
XYZI  (NUMTGT.4)  = XYZI  ( 1 ,4) 
XYZF(NUMTGT,1)=XYZF(1,1) 
XYZF  (NUMTGT,2)=XYZF(  1,2) 
XYZF(NUMTGT,4)=XYZF(1,4) 
SIGJAM(NUMTGT)=0 


Set  up  dummy 
target  for  clutter 
ceil 


A(4)  = [2.SIGTAR(1,3)  + SIGTAR(1, 2)1/3. 

A(3)  = (3.*SIGTAR(1,1)+SIGTAR(1,2)-4.*A(4)1/12. 
A(2)  = 5.*A(3)-SIGTAR(1,1)+A(4) 
A(1)=2.*A(2)-4.*A(3) 


RETURN 


Fig.  3.16-2— TARGETS  flowchart  (Continued) 
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3.17  Subroutine  TARSIG 


Subroutine  TARSIG  (Table  3.17-1)  is  called  by  subroutine  DETPROB.  TARSIG’s 
primary  function  is  to  determine  the  target’s  radar  cross-section  as  a function  of  aspect 
angle.  (See  Fig.  3.17-2  for  the  subroutine  flowchart.) 

The  radar  cross  section  for  an  aspect  angle  d is  given  by 

F(0)  = Ai  cos  26  + A2  cos  40  + A3  cos  80  + A4  . 

The  cos  2kd  functions  generate  a lobing  structure  that  is  weighted  by  the  A,-  coefficients. 
The  coefficients  A,  are  functions  of  the  input  values  of  the  target’s  head-on  and  broadside 
radar  cross-section,  and  the  minimum  radar  cross-section  that  is  encountered  over  the 
range  of  aspect  angles.  The  angle  0 is  the  angle  between  the  line  of  sight  to  the  target 
and  the  target’s  broadside  axis  (see  Fig.  3.17-3),  and  the  coefficients  A,-  are  determined 
in  subroutine  TARGETS. 

Table  3.17-1  — TARSIG  Variable  Dictionary 


FORTRAN 

Variable 

Algebraic 

Notation 

■ 

Description 

A(I) 

Constants  determined  in  Subroutine  TARGETS 

DOTP 

cos  0 

Cosine  of  the  angle  between  the  line  of  sight  to  the  target  and 
the  target’s  velocity  vector 

TARCS 

0(0) 

Target  cross  section  (m^) 

TEMP(2) 

cos  20 

TEMP(3) 

cos  40 

TEMP(4) 

cos  80 

ENTER 


TEMP(1)  = D0TP 


DO  10  1=2,4 


TEMP(I)  = 2.*TEMP(I-1)»*2-1 


TARCS=A(4)  + A(3)*TEMP(4)+A(2)*TEMP(3)-A{1)"TEMP(2) 


RETURN 


Fig.  3.17-2-TARSIO  nowch«rt 
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3.18  Subroutine  UFUN 

Subroutine  UFUN  is  called  by  Subroutine  MULPTH  to  calculate  the  U functions  that 
are  used  in  determining  the  pattern-propagation  factor  F in  the  diffraction  region.  The 
equation  as  given  by  Kerr  [8]  for  the  pattern-propagation  factor  in  the  diffraction  region 
is 


and  UFUN  evaluates  the  function  Uj(Z)  for  the  values  of  Z given  in  its  calling  sequence. 
The  term  Z is  alternatively  assigned  the  height  of  the  radar  (Zi)  and  the  height  of  the 
target  (Z2)  in  the  so-called  natural  units  discussed  in  Section  3.12. 

The  rationale  followed  in  evaluating  U(Z)  is  as  follows;  The  term  Ui(Z)  can  be 
expressed  in  terms  of  the  function  h2(x).  This  is  found  (see  Ref.  8,  page  109)  to  be 


Ui(Z)  = i 


fl2(Z  ill) 
h'2(Ai) 


The  quantity  i4i  is  calculated  in  MULPTH  and  corresponds  to  CA  in  the  calling  sequence, 
and  h'2  indicates  the  derivative  of  h2- 

The  function  h2(x)  can  in  turn  be  expressed  in  terms  of  Airy  functions: 

h2(x)  = i2*l^3^I^Ai(xe^‘l^) . 

Expressions  for  evaluating  the  Airy  functions  are  found  in  Ref.  9.  The  Airy  function  is 
expressed  as 


Ai(z)  = c\f(z)  - C2g{z) 

where  f{z)  and  g(z)  are  given  by  power  series  for  small  values  of  |z|: 

^1^,6  ^ ... 


f(z)  - 1 + 3,  .c  ■ 0!  ‘ ■ 9! 

2 A 2*5  n 2*5*8  1,1 
g{z)  = Z + jy24+_^7+  __  ^10  + ... 

For  values  of  |z|  > 3,  Ai(z)  is  approximated  by  an  asymptotic  expansion: 

7r"l/22-l/4e-p  ^ 

Ai(z)  * 7^ 


where 
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22 

^ =T 

no  = 1- 


r(3fe  + 1/2) 

rik  = ; . 

54''fe!nfe  + 1/2) 

The  variables  used  in  Subroutine  UFUN  are  listed  in  Table  3.18-1.  The  calculation 
procedure  is  outlined  in  the  macro  flowchart  shown  in  Fig.  3.18-2  and  detailed  in 
Fig.  3.18-3. 


Table  3.18-1  — UFUN  Variable  Dictionary 


CA  Ai  Function  of  complex  dielectric  constant  and  polarization, 

evaluated  in  MULPTH 

CAl  Afe‘^1^  (argument  of  Airy  function) 

CA13  (Aie'»f/3)3 

CA14 

CAIR  The  feth  term  of  asymptotic  expansion  of  Airy  function  with 

argument  (Z,-  + Ai)e'^3 

CAIRP  The  feth  term  of  asymptotic  expansion  of  derivative  of  Airy 

function  with  argument  (Ai)e'^^3 

CANS  Ui  U function  used  to  determine  propagation  factor  in  diffraction 

region 

CC  l/27r-l/2(cZ)-l/4e-M 

CCP  -l/2ir-l/2(CAI)l/‘*e-M 

CDA  2l3(Aiei^l^f'^ 

CDZ  2/3[(Z,-  +Ai)c'^3]3^2 

CFI  fUZi  + Ai)e'^3]  summed  to  the  feth  term 

CFIP  ^'[Aie'^3]  summed  to  the  feth  term 

CGI  g[{Zi  + Ai)e‘”l^]  summed  to  the  feth  term 

CGIP  g'  [Aie'’’'^^]  summed  to  the  feth  term 

CH2  h2(Zi  +Ai)  h Function  used  in  determining  U\ 

CH2P  fe’2(Ai)  Derivative  of  fe  function 

Cl  i 


3.18-2 
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Table  3.18-1  — UFUN  Variable  Dictionary  (Continued) 


FORTRAN 

Variable 

Algebraic 

Notation 

Description 

COLDA 

Previous  value  of  CANS 

CXP3 

giTt/3 

CZ 

(Z2  + (argument  of  Airy  function) 

CZ3 

liZi  +A,)c'’f/3]3 

CZ4 

[(Zi  +Ai)eW3]-i/4 

I 

k 

Counter  indicating  which  term  of  the  power  series  or  asymp- 
totic expansion  is  under  consideration 

IKEY 

Indicator  that  determines  which  expansion  to  use  for  Airy 
functions: 

(0)  iczi  and  ICAll  < 3 

(1)  ICZI  > 3 

(2)  ICAll  >3 

(3)  ICZI  and  1CA1|  > 3 

ISWIT 

Indicator  takes  on  values  of  0,  1,  where  0 = initial  pass  or 
new  mode,  1 = same  mode  as  previous  pass 

OLDZ 

Value  of  Z on  previous  entry  to  UFUN 

RTPI 

XCl 

Cl 

Constant  used  in  evaluating  Airy  function 

XC2 

C2 

Constant  used  in  evaluating  Airy  function 

XMULl 

Coefficient  of  feth  term  of  power  series  for  f(z) 

XMUL2 

Coefficient  of  feth  term  of  power  series  for  g(z) 

Z 

Height  of  point  in  space  under  consideration 
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Fig.  ?.18-2  — UFUN  macro  flowc 
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CZ3=CZ*CZ‘CZ 

CA13=CA1*CA1*CA1 

CFI=1 

CFIP=0 

CGI=CAI 

CGIP=1. 

CFM  = 1 

CFPM  = 1./CA1 
CGM  = CZ 
CGPM  = 1 
XMUL1  = 1 
XMUL2=1 
1=0 


1 = 1+1 

XMUL1  = XMUU/{3*I*(3"M)} 
XMUL2  = XMUL2/{3*I  + 1)*3*I} 
CFM=CFM»CZ3 

CFPM=CFPM*CA13*(3*I)/MAX(1, 3*1-3) 
CGM=CGM*CZ3 

CGPM  = CGPM*CA13*(3*l  + 1)/l3*l-2) 
CE  = XMUL1*CFM 
CFP  = XMUL1*CFPM 
CG  = XMUL2*CGM 
CGP  = XMUL2*CGPM 
CFI=CFI+CF 
CFIP  = CFIP  + CFP 
CG1=CGI+CG 
CGIP=CG)P+CGP 


Fig.  3.18-3— UFUN(Z,CA, CANS)  flowchart  (Continued) 


Power  series  for 
and 

their  derivatives 


TT’VCm 


KAPLAN.  GRINDLAY,  AND  DAVIS 


Check  accuracy 


Initiall/e 
asymplotii: 
expansion  lor 
Airy  function 
and  Its 
derivative 


CDZ»2/3*CFXP{).5*CLOG(CZ)} 
CDA-2/3*CEXP{1.5*CLOG(CAl)} 
CZ4  = I./CSQRT  {CSQRT(CZI) 
CA14*CSQRT{CSQRT(CA1)} 
CCE=CEXP(-CDZI 
CCEA»CEXP(-CDA) 
CC*.5*CZ4*CC£/RTPI 
CCP=-.5*CA14*CCE/RTPT 
XMUU-I. 

CAIR»1. 

CAIRP«I. 

CFPM-1. 

I»0 


-0 


Fig.  3.18-3— UFUN(Z,CA, CANS)  flowchart  (Continued) 
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Fig.  3.18-3-UFUN(Z,CA,CANS)  Rowchart  (Continued) 
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02100 
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04300 
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04600 
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04800 
04900 
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05200 
05300 
05400 
05500 
05600 

05  700 
05000 
05900 
06000 
06100 
06200 


C THIS  IS  SUKSEM*  THE  NRL  SUHVEILL4NCE  R40AH  STSItN  EVALUATION  MODEL 


o 

common  NSCAN»NEXTiNUMT6Tt T tOLOT tENOT IME (SMOUEC 15>  10) 

1 «P  I •PIOVEH2>T0OPI  >RAOIANiTAU(  15)>OSTAR«O0L(  IS) 

1 iXrZI ( 10i4)iXTZF(  10i4) >TR6P0S( 10t 7)tSI GJAM( 10) 

1 fSIGTAR(10t3)tFHV(10)fSIONAHf  ISMI  T«T£MPMR 

1 •SHtP(4)»RC(1S)iRM0DE( 15« 12)  1 1 MODE ( 15»2 )• CUM(4000 >2 ) 

COMMON/S/’  £NVIR<  10)>SUBC(  15)fRE*CNM>CCMf  ACON*  8ETA> 

1 D01P>P0LRZ>IKETFtXKT0MS>XNMT0N>TARCS>NVL>F0PIQBtF0PIS0 

CONMON/0/  ALPHAO»SI6?>V<AR1»AR2>St0C»SI6 
C0MM0N/H/FAC4»AMBNtXJAMNf IKETJG»XXXXX 
COMMON/ 1 / PeB$>HOFi<>rH£r6M<OBOOMN»THH'THV*6N 
INTEGER  ANS1>ANS2*ANS3tAM$4 
DIMENSION  MCC(15) 

C0NV:4. 342944819 
RE  = B392375«04 
CNM  = iei883«5474 
CCM  = 30000000000. 

BETA  = .718565021 
ACON  = .60  7701593 
XMTOMS  X .514444444 
XNMTOM  X 1852. 

FOPISO  X 157.9136706 
FOPlOB  = 1984.40171  1 

C specify  logical  UNIT  FOR  OUTPUT  SAVED  DATA  FILE(S) 

I TAPE  X 1 
70  OFRX0 
C 

TYPE  5 

5 FORMAT(1M0.> THIS  IS  SURSEm.  ThE  NHL  SURVEILIANCE  RADAR  SYSTEM  EVA 
1LUA  Tl  ON  MODEL.  ' ) 

C 

TYPE  6 

6 FORMATC/*  do  you  need  a DESCRIPTION  OF  THE  INPUT  VARIABLES?  •$) 
ACCEPT  7.  ANS3 

7 F0RMAT(A3) 

|F(ANS3  .EO.  3HYES)  CALL  IN5TRC 


C 

TYPE  9 

9  FOhMATC/'  do  you  0ANT  DETAILED  OUTPUT?  ’J) 
ACCEPT  7.  ANSI 
C 

call  initial 

10  call  targets 

11  CALL  ENVIRN 
PS1x0. 

PS2x1. 

CUMP=1. 

00  12  1C  X 1.NSCAN 
MCC( IC  ) = IC 
1?  CONTINUE 
MCxNSCAN 

c 

IF(ANS1  .NE.  3MYES)  60  TO  17 
TYPE  15 

15  FORMA  U 1H0. ’TYPE  OUTPUT  CONTROL  PARAMETEhSi  '») 
ACCEPT»>PS1»PS2.CUMP,|REP»MC»(MCC( IC).IC*1.MC) 
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• 63M 
•64«f 
e«5M 
•66i« 
•6  7«« 

• 68M 
•«9M 

• 7M« 

• 71H 

• 72M 
$7300 
0 7400 

07b00 
0 7600 
0 7700 
0/000 
0 7900 
08000 
08/00 
08208 
08300 
08400 

• 8K80 

08799 

08800 
08900 
09000 
09100 
09200 
09300 
09400 
09S00 
09600 
09700 
09800 
0 9900 
10000 
10100 
10200 
10300 
10400 
10500 
10(00 
10700 
10800 
10900 
11000 
11100 
11200 
11300 
11400 
11500 
11600 
11700 
118011 
11900 
12000 
12100 
12200 
12300 
12400 


IF(MC  .NE*  0)  CO  TO  17 
MC«NSC4M 
0CC(  1)«1 
17  COtiriNUE 
lt(ETE>0 
CALL  MATCH 
ISTEP»2 
IREPF  » 0 
POCUMC0.0 

IE(ANS1  .NE>  3HTES)  GO  TO  20 
TTPE  40 

40  forma  T(  //•  IN0EXL6X'TIME'7X'BV'6X'SI0MA15X'ESI6J4X'NCLT'SX'E/N'5Xi 

1 'PDCUM' /6X 'mode '6X 'Range  *7X 'BH'7X'FCTR'4X 'NAMB'4X'NJAH'6Xi 

2 'POSS'/) 

20  CALL  NCXTSCN 

IF(RC(1)*DML(NEXT)«NE«0FR) IS«IT>0 
OFP=RC( 1 )*09L(NEXT) 

RFR»RC(  D/OFR 
RC(6)«GN/RFR**2 
RC(4)*TMH»RFR 
RC(5)*TMV«RFR 

P88S  * RMOOECNEXT.  t)  ♦ RC(S)/2^ 

TStCT*3600.0 

IF(T»GT.ENOI  IME  ) GO  TO  110 
00  21  IC^ItMC 

IF(NEXT.EO>MCC(lC))GO  TO  22 

21  CONTI  NUE 
GO  TO  20 

22  CONTINUE 

CALL  NEkPOST(NUMTCT) 

ALPHAO  * 0 
SIG2  = 0 
SIGC  < 0 
SIC  " 0 
AR1  < 0 
AH2  z 0 
V : 0 

CALL  D£IPR08(P0SS) 

|F(  ISTEP.E0*2)CUM(1.2)*P0CUM 
POCOM*1.0-n.0-POCUM)«(1.0-POSS) 

IF(P0SS.6E«. 001)00  TO  42 
GO  TO  43 

42  CONTINUE 

CUM(  ISTfcP*1)«TSEC 
CUM(  ISTEP>2)«P0SS 
ISTEP  » ISTEP*1 

43  CONTINUE 

IFCANSI  .NE«  3HTES)  GO  TO  80 
|F(P0$S«LT.PS1)  CO  TO  80 
IF( IKEtF>EQ*0)6O  to  14S 
IF(P0SS.GT.PS2)  CO  TO  80 
IF(PUCUM«GT«CUMP)  GO  TO  80 
145  CONTINUE 
IAETF*1 
1ST  « lSTEP-1 
IREPF  X IREPF^I 

IF(MOD( IREPF*IHEP)«NE>0)  GO  TO  80 
8VDEG*TRCPCS(  IxOxRAOIAN 
BHOECIRGPOST  1«5)*RA0IAN 
OBE‘CONV*ALOG(RC(  12)> 

0BNiC0NV*AL06(RC(14)) 
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i2sat 

127«« 

1280« 

12  9*0 
19*** 
1310* 
132*0 
133*0 
13«0* 
13S00 
13600 

13  700 
13800 
13900 

14000 

14100 

14200 

14300 

14400 

14  500 
14600 
14  700 
14800 
14900 
IS000 
15100 
15200 
15300 
15400 
15500 
15600 
15700 
15800 
15900 
16000 
16  100 
16200 
16300 
16400 
165*0 
16600 
16700 
16800 
169*0 
17000 
17100 
17200 
173*0 
174*0 
17500 
176*0 
1 7700 
178*0 
17900 
18*0* 
181*0 
1820* 
1830* 
10400 

18500 


5n>0BE-0BN 

IR6P  * TR0P0S< 1f4)*6«0802 

4MBND8  * C0NV*4L0G<4M4X1(4MaN>1.*E-35)) 

XJ4MN0B  : CONV*«L06(«M4X1(xJ4MN> 1«0E-35) ) 

5C0B  * CONV«*LOO(*«*X1(SIGCt1.0£-35)) 
S0*C4=CONV«4LO6(*M*X1(F»C4t1.*E-35)) 

C 

TTHE  5*f  ISr>TSECteVOEC«IA8CSiDBE>SCO0>SNfPOCUNi 
1 NEXr>  7RCP«SH0EC*3P4C4>4MBN0B>XJ4MN08>P0SS 

50  FUNM«T(  l5>F11.1>F10«2>n0«1>F9«*«Fe«0>F9<2iF9«3/l9tF17>1tF10.1> 

1 F10.0«2FB«0>F10.3/) 

80  CONTINUE 

IF  ( IS  IEP.LE»4**0)  GO  TO  2* 

TTPE  90 

9*  F0RN4T(1H*t‘  PR0B48ILIIT  OF  DETECTION  TABLE  EXCEEDED*  RUN  TERNINAT 
1ED.'/) 

110  IST£P=ISTEP-1 
CUM(1*1)  s ISTEP 
TTPE  115 

115  format(in0«'do  tou  »ant  to  save  data?  •*) 

accept  7*INP 

|F(  INP  .EO*  2HN0)  GO  TO  301 
C *RI  TE  FI LE 

0RI TE( I TAPE*  1 18)  ISTEP*  ( CUN ( I * 1 ) *C UM( I * 2 ) * I s 1 * I S TEP  ) 

118  F0RMAT(1X*l4/(1Xf5(F7.1*F7.5))) 

C 

301  CONTINUE 
XJAMN:*. 

ITPE  120 

120  F0RNAT(/'  is  there  another  ENVIRONMENT?  •*) 

ACCEPT  7*IANS 

IFdANS  .EO.  3HTES)  GU  TO  11 
C 

ITPE  122 

122  FORNAK/'  is  there  ANUTHtR  6HIP/TARGET  SET?  •*) 

ACCEPT  7*ANS2 

IF  (ANS2  .EO.  3HTES)  GO  TO  10 
C 

TTPE  125 

125  FORMAU/*  IS  THERE  ANOTHER  SET  OF  RADAR  PARAMETERS?  •%) 

ACCEPT  7.ANS2 

IF  (ANS2  .EQ.3HTES)  GO  TO  7* 

14*  CONTI  NUE 
C 

TTPE  15* 

150  FORMAK/'  PROGRAM  FINISHED.'/) 

13*  CONTINUE 
STOP 
END 


SUBROUTINE  INS1RC 
C 

C PRINT  INPUT  information 
C 

TTPE  10 

10  FORMAU  1H0*'  THERE  ARE  11  BASIC  RADAR  INPUT  PARAMETERS'/'  1 RAD 
1AK  FRCOUENCT  in  MH2'/'  2 ANTENNA  PATTERN  FUNCTION  INDICATOR'/' 
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ib7»r 

i«e«b 

I8di<((i 

191b** 

192«ti 

1939b 

194«I 

1959b 

19«bb 

19  7M 

I980t 

19988 

?888» 

28188 

29788 

28388 

28488 

29388 

29688 
29  788 
28880 
28998 

21888 

21188 

21289 

21398 

21488 

21588 

21689 

21789 

21889 


21988 

22889 

22188 

22289 

22388 

22489 

22588 

22608 

22  789 

22688 


2 a * PtNCiL  0E4M>/'  1 > COSECANI  SQUARE  BEAM'/'  3 

3RECEMER  NOISE  IN  08'/'  4 HCHI2Q4IAE  JJH  BEAM9I0TH  IN  DEGREES'/ 

4'  5 WEHIICAL  306  QEAM.iniH  lu  DEGREES'/'  6 ONE-MAY  AMEKN 

SA  gain  in  08'/'  7 ONE-biY  Si  DELOBE  LE9EL  IN  03  Cu.N'/'  6 REC 

6EI9ER  LOSS  IN  Ot''/'  9 T6ANSMltrE-(  LOSS  IN  12  U( 

7SCAN  MODES'/'  1J  lineal  PULANIiATIM*  IN  OEvO-ElS'/'  8 • MO 

8RI20NIAL'/'  98  = VE'IIICAL') 

C 

irPE  IS 

15  FOMMAT(1H0*'  ecu  EAi,l  HADAil  SLAI.  MCE'  IhERE  ARE  16  INE01  RARtiflf 
IRS'/'  1»2  LO»ER  and  LPRER  HCUNDART  EOR  EIEvAIiCN  aLi-U  LOVEHAOC  I 
2N  DEoREES'/'  3 PEAa  RjMER  IN  N9'/'  « RuLSE  LEl.UlE  IK  NICRCSE 

3C'/'  5 IMLMLOCK  PERIOD  IN  SEC'/'  6 SCAN  OFFSE 1 IN  SEi,'/' 

4 7 INSTRUMEMED  RaNcf  II.  NN I ' / ' b KCE  DtPtMiENI  LOSS  IN  IIP'/' 

5 9 NUMdFK  of  PUISES  I N I EGRA  lEO  ' / ' 18  MINUS  LOblO  (fflSE  ALARM 

6PR0BAH  I L I M ) ' / ' 11  CuoihLSStD  RUSE  lENGIM  IN  MICHuSE;'/'  U’  j 

7E«  ClUIIER  INRROVENEM  FACr.H.  IN  DR'/’  13  l•'■•  EAN09IDTH  IN  MM. 

8 IF  8.  UAND9I01M  illl  BE'/'  SET  AT  1 .8 / ( COMPRf S D PULSE  lE 

9NG1H)'/'  14  ACDE  CEPENDENT  FPEOUtNCY  INCREMENT  IN  MP2'/'  1 'S  Rl 

UNrMNo  TIME  IN  MICROSECONDS.  IF  O"'  ” SE I AI  PULSE  LENulrl' 

2/'  1e  RAIN  CeUTUH  improvement  FACTOR  IN  03') 

c 

TYPE  28 

2D  F0RMA1(1M9»'  tPEHE  ARE  13  INPUT  PAKAMETEhS  F CR  EACP  URGEI'/'  1-4 

1 INiriiL  CCORUI'.AIES  (X.Y.;iI)  INmFI  and  SEC'/'  5-8  TERMINAL  COO 
2R0INAIES  (.Y.2.1)  IN  KF1  AND  SEC'/'  9-11  UADAI.  REFLECIiVL  AREAS  F 
30R  HlAC-ON»'/'  BKOADSlUE.  AND  MINUPUR  IN  SO.  MEUf.'j’/'  U' 

4 JAMMING  P09EH  DLNilTr  IN  »/MhZ'/’  1j  MA'vCuP  SMERLINU  CROSS  SFCT 

SION  MODEL') 

C 

TYPE  25 

25  FURMAU1M9.'  TMERE  ARE  4 ENVIRONMENTAL  INPJy  PaR  AME  ILR3  ' / • 1 Ml 

1N0  SPEED  IN  RNLIS’/'  2 HElCiHI  I’F  MIND  SPEED  HAijtiEMENT  IN  RF)' 

2/'  3 MULIIPAIm  INOIOaIuR'/'  1 = NHL  1 1 PA TH ' / • 9 = 

3N0  MULTIPATH'/'  4 RAINFALL  RAFl  IN  MM/  HR') 

C 

ITPE  38 

38  FURM4T(1MI»'  IHERE  ARE  SEVERAL  PRINT  CONIRCL  r ARAKE  ILk  j ' ' ' WE  LO 

19ER  AND  UPPER  BOUNDS  FOR  MHICH  SINGLE  SCAN'/'  PROPAMILIIT  0 

2F  OEIECIION  MILL  BE  LISTtD'/'  3 LARGEST  CiimiilAIIVF  PROPaPILIIT 
3CF  OlTeCTIJN'/'  10  BE  LISTED'/'  4 PRINT  FREQUENCY  INOICA 

4TUR.  IF  iMIj  NUMJER  MERE  5»  ImEN  ONE  OUT'/'  OF  EVERT  S LIN 

5ES  Of  POSSIBLE  OUTPUT  MOULD  BE  LISTED'/'  5 NUMBER  Of  MODES  TO  •< 


y 


I 

l; 
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229»l 
23«»M 
231D0 
232«« 
233«K 
234«» 
2 39P0 
2364« 
23  7»0 
238tf» 
239»« 
?4e«i(i 
241K0 
242019 
24300 
24400 
24S00 
24800 
24700 
24800 
24900 

2S000 
25100 
25200 
25300 
25400 
2SS00 
2 5600 
25700 
25800 
25900 
26000 
26100 
26200 
26300 
26400 
26500 
26600 
26700 
26800 
26900 
27000 
27100 
27200 
27300 
2 7400 
2 7500 
27600 
27700 
27800 
27900 
28000 
28100 
28200 
28300 
28400 
28500 
28600 
28  700 
28800 
28900 
29000 
29100 


6E  UStO'/'  6 NODE  NO00ER5  TO  9E  U5£O'/1M0) 

RE  TURN 
ENO 


5U8R0UTINE  INITIAL 
OIMEnaION  4M00E(15t2) 

Common  NiCAN>NE*T»NUMTOT»T»OLOT*ENOTIME*SMOUE( 15»10) 

1 >P I fPI 0vER2t TkOPI •RAOI4NtT«U( 1 5 ) • OS T AR >O0L ( 15) 

1 •Xr2l(10t4)>lO2E(10i4)iTRGPOS(10>7)>SlSjAM(10} 

1 •5IQT4R( 10>3)>EHV(10)iSISMAH>IS0I T'TEMPHR 

1 •SHIP(4).RC( 15)>RM00E( 1S>12) t imOOE(  IS* 2 ) •CUM(4000« 2 ) 

COMMpN/9/  ENVI R( 10) .suec( 15) .R E »CNM . CCM» 4C0N»BE T4 . 

1 00IP>P0LR7> IKErE>XNTCMSiXNMT0M>TARCS>WVL>F0PI0ri»F0PI$3 

common/I/  PB8S.H0F1.THET8rM0900»N»THM»TMV»GN 
RC(10)<290.0> 1.38* 10.0 ••(■23) 

HILLION=1.0E*6 
Pl*3. 1415926536 
T0OPI«PI*2.0 
PIOVER2aPI/2*l 
RAOIANaS?. 29578 
C 

TYPE  5 

5 FORMATC 1H0. • type  11  SASIC  RADAR  INPUTS>  '$) 

ACCtPT«»(RC(  I ).  I = 1»9)  pNSCAN.POLRZ 

C 

IFCnSCAN  .LE.  15)  GO  TO  10 
TYPE  6 

6 FORMATC  NO  MORE  THAN  T5  SCAN  MOOES  MILL  BE  ACCEPTED') 

NSCAN  a 15 

10  CONTINUE 

RC(4 )=RC( 4) /RADI  AN 
RC( 5)=RC( 5)/RADI AN 
Thh=RC<4) 

Thv=RC(5) 

RC(6)a10.»»(RC(6)/10») 

CN=RC(6) 

RC(3)»10.««(RC(3)/10.  ) 

RC(  /)M0.««(-RC(7)/20.) 

NC(8)=10.»»( -RC(8)/10.) 

RC(9)=10..»(-RC(9)/10.) 

OBOOMN  I RC(7)»RC(7) 

DO  80  J=1»NSCAN 
C 

TYPE  50«J 

50  FORMAK/'  type  16  INPUTS  FOR  MODc'.I3*'<  '») 

ACCEPT* t(RMODE(J> I )• I c1.8)»AM0DE( J> 1)*PMF>RM0DF( J> 1 1)>SUBC( J)> 
1 Rm00E(J>  12)>0ML(j)>SMfSN00£(J>2) 

IMOOE( J»1)=AM00E( J.1) 

MPFipMF 

IF  (RMunF(J>S).6T.0.0)  GO  TO  SS 
RMOOE(  J.5)a10.0 

55  RMODE( J* 1 )sRM0DE( J*  1 )/RAOlAN 
RMOOEf J»2)*RM00E( J»2)/RA0IAN 
IF(SM.EO.0)SMsRMOOEU»4) 

SMOOEC J* 1 )s153.*SN/rNMI0M 
SMOOE(J.2)  a T0.**( -SMOO£( J*2)/10.) 

SM0DE(J»3)  = PMF 

HMODE( J«5)*RM00E( J>5)/3600>0 


KAPLAN.  GRINDLAY,  AND  DAVIS 


r 


1 


?9?f« 
2939I 
29419 
29S99 
296H 
2979t 
2'D8«« 
299«e 
3«ei9 
32190 
39299 
39389 
39499 
39S99 
39  999 
39  799 
39899 
39999 
31999 
31199 
31299 
31139 
31499 
3 1599 
31699 
31799 
31809 
31999 
32999 
32199 
32299 
32399 
32409 
32599 
32699 
32  700 
32899 
32199 
33999 
33109 
33299 
33390 
33409 
33599 
33690 
33799 
33809 
33999 
34099 
34199 
34299 
34  399 
34499 
345'’9 
34699 
34799 
34899 
34990 
35999 


HmoOEI J«6)>RM00E( J>6)/3699>9 
RNOOEC  Ji4):RN00E(  Jt4)/N|  UlON 
RR00e< J.8)*19.*«( -RN00E(J.8)/19.) 

RR00E(J»3)=R*<0D£(  J*3)*9IU  ION 
TAU(J)  < RMOOEU'ID/’MILLION 

IE(RM00E(J>12).LE«9)  RMOOE(J>12)  • 1 .9/Rm00E( J< 1 1 ) 
NM00E(J>12)  : RM00E(J«12)*MIILI0N 

IM0DE(  Ji2)=max1(RMOOE(  J>  12  )*RM0DE(  Jill  )/MIU  I0N*9«S>1>9) 
RNOOEU'II)  » 19.«*(-PME) 

5U8C(J)  * 19.««( -SUBC(J)/19.) 

89  CONTINUE 
RETURN 
END 


SUBROUTINE  TARGETS 

ConmON  nSCANinEXT •NUMTGTi TtOLOT 'ENDT I ME>SMOOE(  15*10) 

1 >P I >P I0VER2 • T«UP I •RAO  I AN*  T4U( 15) •0STARt0HL(15) 

1 . .XT2I ( 19*4) *XT2F(  19*4) *TR6P0S( 19*7)*SI6JAM( 10) 

1 *S I GTAR( 10*3) *FHV(19) *SI GRAM* I SMI T • TEMP  MR 

1 *SHIP(4)>RC(15)*RM00E(15*  12)* I MODE ( 15* 2 ) * CUM(4999*2 ) 

COMMON/B/  ENVIR( 19)*SUBC( 15)*RE*CNM*CCN*iC0N*BETA* 

1 OOIP*POLR2* 1KETF*X6T0MS.XNMT0M*TARCS*MVL*F0P10B*FUPIS0 

COMMON/t/  A(4) 

COMMON/UE 1 /MODEL  { 19) 

C 

c X T z Ship  ccoroinates 

TTPE  2 

2 FORMAT ( 1M9. • type  SHIP/KAOAR  POSITION  COORDINATES  (X*t*7)'* 

1*  IN  KFT:  '$) 

ACCEPT«*(SMIP( I ). I=li3) 

DO  3 I = 1*3 

ShlP( I ) r SHIPC I )/6.0602 

3 CONT I NUE 

5-IP(4)»S0RT(SMIP(3)) 

C TARuEIS 

C 

4 TYPE  5 

5 FORMAT ( 1H0*  • TYPE  NUMBER  OF  TARGETS:  '$) 

ACCEPT»*NUMTGT 

C 

IKNU-  ToT  .GT.  9)  Gu  TO  15 
TYPE  10 

10  FORMA  T(*  YOU  HAVE  ENTERED  ZERO  TARGETS') 

GO  TO  4 
C 

C 9 targets  maximum 

15  IFTNLMTGT  .LE«  9)  60  TO  25 
TYPE  29 

29  FORMAT!'  NO  MOKE  Th'.N  9 TARGETS  MILL  BE  ACCEPTED’) 

MUM16T  r 9 
C 

25  DO  50  J » IfNUMTGT 
Ty'E  30*  J 

39  FORMAT!/'  TTPE  13  PARAMETERS  FOR  TARGET  '*l2*'i  '$) 

AtCEP  T»*!  XYZI!J*I)*U1*4)*!XY2F!J*I)*I*1*4)*!SIGTAN!j*|)*I=1*3) 


35590  1 *SlGJAM!J)*MOOEl!J) 

35699  DO  35  1=1*3 

35799  XY2l!J*l)  = xYZKU’I  )/6*9892 
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3S800 

35900 

30000 

36100 
36200 
36300 
36400 
36500 
36600 
36700 
36800 
36900 
37000 
37100 
37200 
37300 
3 7400 
37500 
37600 
37700 
37800 
37900 
38000 
38100 
38200 
38300 
38400 
38500 
38600 
38700 
38800 
38900 
39000 
39100 
39200 
39300 
39400 
39500 
39600 
3970m 
39800 
39900 
40000 
40100 
40200 
40300 
40400 
40500 
406  20 
137j  1 


XT2F(Jtl)  = XT2F(Jt| )/6.0802 
35  CONTINUE 

XtZ I ( J*4)=XT2l ( Ji4)/3600. 

XT2F( J»4)»XyZF( J»4)/3600. 

SIGJAN(J)  : SIGJ4M(J)/1.0E«6 
50  CONTINUE 

NUMTG1  *NUMIGT*1 

XTZ I (NUHIGI.  1 ) *XY2l(1.1) 

XTZI (NUNTGI»2)  a XTZI ( 1*2) 

XTZ I (NUMTG1.4)  = XTZ I ( 1*4) 

XTZF(NUNTGT.I)  = XTZF(1*1) 

XTZF(NUnIGI*2)  = XTZF(1*2) 

XTZF(NUM101 *4 ) = XTZF(1*4) 

SIGJAM(NUMTGT)  r 0 

A(4)  = (2.»SIGTAR(1*3)  ♦ 5lCTAN(1*2))/3. 

A(3)  = (3**SI6TAR(  1.  1 ) ♦ SIGTAR(1*0)  - 4.»A(4))/12* 
A(2)  : 5.«A(3)  - SIGIAWd.l)  ♦ A(4) 

A( 1)  = 2.»A(2)  -4.*A(3) 

RETURN 

ENC 


SUBROUTINE  ENVIRN 

COMMON  NSCAN*NEXT*NUMTGT*T*OIOT*ENOTIHE*SMOOE(15*10) 

1 *PI .PI OVER2*T0OFI *RAOIAN*TAU( IS) *0S T AR *OML ( 16 ) 

1 *XTZ I ( 10*4)*XTZF( 10*4)*TRGPOS( 10*7)*SIGJAM( 10) 

1 *SI  GTAR(  10*3)*FHV( 10)*SIGMAH*IS»I T*  TEMP0R 
1 *SM|P(4) *RC( 15).RM00E( 15* 12)* IMOO£(15*2)*CUM(4000*2) 

COMmON/9/  ENV I R(  10)  *SuBC( 15  )*RE*CNM*CCM.4C0N.9ETA. 

1 OOTR.ROLRZ  * METF*  xRIOMS  .XNMTOM*  T ARCS.8VL  *F0R  IQ3.FOPISO 

CUMM0N/H/FAC4  «AM3N*XJAMN* IKET JG*  XX XXX 

1TRE  10 

10  FORMATf  1R0* ' TTPE  4 ENVIRONMENTAL  PARAMETERS:  '!) 

ACCEPI»*{Exvin;  I )*  1 = 1*4) 

F4>:4=1  . 

ENVIRC2)  = ENVIR(?)/6.e002 

SIGMAh  = .0066666  ?•(  XI'.  ru'45»ENVIR(  1 ) ) ••2»  ( XNMTOM«ENV I i! ( 2 ) / 16 « ) 
1 ••(-.  19360 

XTZI ( XJMTGT.3)  = 0 
XTZF(NUMTCT*3)  = X TZ I ( NUN T 0 T . 3 1 
T : XTZ  ; ( 1 .0 
OLDI  = XTZ I ( 1*4)-1. 

ENUTIFE  = XTZF(  1 *4).  1 .C20.;2*  I 
TRGP0S(1.4)  = -1. 

RE  rum 
END 


i 

I 


/ 


I 

! ; 

1 

\ 

\ 


t 


40820 

408  40  F 

40860  ’I 

40880 

40900  Subroutine  ot imioiurdtj) 

4 1000  COMMON  NSC 4 N'Ntx  T •lur-':  jl  * 1 »OLUI  »tNC1  IME  *Sm00E(  15*10) 

41100  1 *PI  *PICiVEH2»  INOP I *I:T.U  ; l.N> 'tU(  1 1)  <C  5 ■ • :i  L ( IE) 

41200  1 .XT7I (10.4) *XTZF( ie.4)*TPCPCS(lB*7)*SI 3JAM( 10) 

41300  1 *SI GIAR( 10.3)tFHV(10) *SI OMAN* I SMI T* TEFPtR 

41410  1 *SHIP(4)*UC(  15)  .RMCC£(  15.  12)*IM00E(  15*2).CiiM(4000.2)  I 

41500  COMMON/B/  ENVIR( 10 ) *SUBC( 15} *RE*CNM*CCf* ACCNiBETA*  H 

41600  1 OOTP.POIRZ*  IMETP  .XKTOMS*XNMTOM*T4HCS.MVL  *FUP  lOB.FOPI  SO 
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41700 
41800 
41900 
42000 
42100 
42200 
42300 
42400 
42S00 
42600 
42700 
42800 
42900 
43000 
43100 
43200 
43300 
43400 
43600 
43600 
43700 
43800 
43900 
44000 
44100 
44200 
44  300 
44400 
44600 
44600 
44700 
44800 
44900 
46000 
46100 
46200 
45300 
46400 
4650J 
46600 
46700 
46800 
46900 
46000 
46100 
46200 
46300 
46400 
46600 
46600 
46700 
46800 
46900 
47000 
47100 
47200 
47300 
47400 
47600 
47600 
4 7700 
47800 
$7900 


COMMON/H/FAC4t*MBN«XJ4MN> IKEY JStXXXXX 
COMMON/ 1/  P8eSfH0FK«rHeTBn>DBD0WN«THMtTMVt6N 
CONHON/OEr/MOOEL( If) 

IF  (NEXT>GT«0)  60  TO  10 
PDSSa.f 
RETURN 
10  CONTINUE 

C COMPUTE  SI6N4L  POWER  (PS)  4N0  ENEMGY  (ES> 

CALL  TARS  16 

WVL»300./(RC( 1)*DWL(NEXT)) 

S I RM0DE(NEXT«3)*RC(6)«RC(6)*WVL*9VL*TARCS 
R=TR6P0S( T.4) 

RM  c r*xnmiom 

R»R«ft 

R=R«R 

RMT  * R<XNMT0M<XNMTCM<XNKT0M<XNM7CM 

RC(11)  = S<RC(8)<RC(9)<RH00E<NEXT»£)/(RMT<F0PI0B) 

FMV(I)  = 1< 

IF(RC(2).NE< 1<)  GO  TO  50 
FH  s 1. 

OAV  < (P68S-TF!6P0S(  1.6)  ) 

FV  = 8EAM(0AV.RC(S).RC(2).1) 

FHV(  1)  = FH<FV 

|F(TR6P0S{1.6)  .LT.  RMOOE  ( NE  X T • 2 ) ) GO  TO  60 
FMV(l)  < 4MAX1(FRV(1).0«00MM) 

60  CONTINUE 

RC(  12)  = PC( n )<R MODE (NEXT. 4) 

TEMPWR  = RC(  12) 

RC(12)  * fiC(  12)<FMV(  1)<FMV(  1) 

CALL  MULP1H(  1.FAC) 

FAC4  < F4C<FAC<F4C<FAC 
C COMPUTE  RAIN  CROSS  SECTION 

RNCS  I 6.706E-6<T4U(NEXT)<RC(4)«RC(6)<RM  <RM  <WVL<<(-4) 
1<ENVIR(a)<<1.6 

C COMPUTE  TWC  way  rain  ATTENUATION 

RA  = 10.<<( -1  .E-8<RM<CNV  IR(4)<WVL»<(  - 1.0  .’)  ; 

C COMPUTE  Sir.ML  ENERGY 

RC(I2)  s RC(  I2)<F4C4<4MI Y1(RM00E(NEXT. 12)<T4U(NEXT). 1.)<»A 
RC(  14)  r n,'/  3)<RC(  10) 

AMeIN  : RC(  14) 

CALL  JAM(EJ) 

C COMPUTE  NOISE  ENERGY  TO  INCLUDE  RAIN  ATTENUATED  ENERGY  4NU 
C RAIN  ATTENUATLO  SEA  CLUTTER 

RC(14)  = RC(14)  < RC(  12)<6.<HNC6/(T4RCS<FAC4)<SM00E(NFXti2)*EJ<RA 
M»  I mode ( NEXT . 1 )<IMO0E( NEXT. 2) 

C COMPUTE  SIGNAL  TO  NOISE  RATIO  SNR 

SNR  < Rc(  12)/(RC( 14)<FL0AT( I M00E(NEXT.2) )) 

Call  marswr(snr.m.smode(next.3).mooel( 1 ) .poss) 

RE  TURN 
END 


SUBRUUTINE  JAM  (EJ) 

COMMON  N6CAN.NEXT.NUMTGI. r.OLOT.ENDT I N£. SMOOE(  1 6. 10) 

1 .PI  .PI  OWE  M2. T WOP  I .RADI  AN. TAU( 15) »OS TAR .OWE (15) 

1 .XY2K  10.4).XY2F(  10.4).TRQPO$(10.7).$IGJAN(  10) 

1 .SlSTAR(  10.3).FHV(  1g).Sl(}MAH.  ISWI  T.TEMPWR 

1 .SMIP(4 ).RC( 15).RN0DE( IS. 12). I MODE ( IS. 2 ) > CUM( 4000  .2 ) 

COhMON/9/  ENVIR(10).$U0C( 15 ) >RE aCNM. CCM. ACON.0E TA . 

1 DOTR.POERfA IKEYF.XKTOMS.XNmTOM. TAnCS.WVLiFOPIOB.FOPISO 
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4«fl« 

4|1#« 

482M 

48300 

48488 

48588 

48588 

48  708 
4B800 
46988 
49880 
49100 
49288 
49300 
49480 
49S00 
49R00 

49  700 
49800 
49900 
58000 
50100 
50200 
50300 
50400 

50  500 
50500 
50700 
50B00 
50900 
51000 
51100 
51200 
51300 
51408 
51580 
51600 
51700 
51800 
51900 
52000 
52100 
52288 
52300 
52400 
52580 
52600 
52788 
52880 
52980 
53888 
53188 
53200 
53308 
53400 
53500 
53680 
53788 
53800 
53900 
54800 
54180 
54288 


COMNON/0/  ALPHiO'Sl  67«V>*H1t4R2«SI0C<Sl  6 
C0HKDN/H/F4C4>AMa»t>XJAMN>  IKETJGtXXXXX 
COMMON/ I / PBBS<HOFK>THETBK>OBOOHN«THHtTHV»6N 
EJs0*0 

FACTOR*  M9l*NVL/FOPlSO*RC<6)*RC(8)«RNOOE(NEXTr8) 

HR  * SHIF(3)*XNMT0M 
HT  * TRGPOSi  )»3)»XNMT0M 
SL  = DBOOHN*DBOOWN 
AGAIN  3 1 
THETB  » RC(5) 

PHIB  * RC(4) 

UO  20  J=1.NUM1GT 
PJ=SICJ4M(J) 

IF  ( IKEYJ6  .EQ.  1 .AND.  (4BS(TRGP0S( 1 tS)-TR6POS(2»5)  ))  .IT. 

1 1.13»RC(4)  ) PJS0.0 

SR  = TRGP0S( J»4)*XNMI0M 
|F< J.EQ.NUNIGI ) GO  TO  25 

IF((PJ.L£.(0.).ANO.J.£O.1).OR.SR.LE.(0.))  GO  TO  20 
OAHiSMLANGT  THGPOSC  1 . 5 ) - T RGPOS(  J i 5)  ) 

OAVsSMLANG( TRGP0S( 1»6)-TRCP0S( J»6)) 

IF(RC(2).E0.  1.  ) OAV  * (PB8S-TRGP0S(J.R)) 

IF(RC(?).F0.1.)  00  TO  10 

IF  (OAh.L£.(  1.13*RC(4)).AN0.0AX.LE.( 1.13»RC(5)))  GO  TO  1J 
FHV( J)=0R008N 
60  TO  15 

10  FH  3 6EAM(OAH.RC(4).RC(2)>0) 

FV  = BEAm{0AV»RC(5)*RC(2).1) 

FHV( J)=FH«FV 

IF(RC(2)  .EO.  1.0  .and.  TRPPCS(J*6)  «LT.  RHODE ( NE X T .? ) .AND.  FH 
1 .G1.  0800XN)  CO  TO  15 
FHV(  J)  = AHAX1(0B00»N.FHV(  J)) 

15  XJAhFA  s FACTOR.pJ«FHV(J)/(SR.SR) 

CALL  HULrrH(J»FAC) 

XJAMFA  s xjahfa«fac»fac 
£J  3 EJ  ♦ XJAHFA 
XJAMN  = ej 
GO  TO  20 

C CALLULAfE  THL  EFFECT  OF  CLUTTER 
25  SR  3 TRGPOS( 1.4 )*XNM10M 
IF(ENVI K(  1 ).l T.0)  CO  TO  20 
DC  3 ( 1.-HR/(2.«RE))»S0RT(5R»SR  - HR«HR) 

IF(0C.GE.05TAR*XNMT0M)  Go  10  20 
SINALF  3 HR/5H  -5R/(2..R£) 

IF(SINALF.LT.0)  60  TO  28 
ALPHA  3 ASIN(SINALF) 

ALPHAO  3 ALPHA*NAD|AN 

TEMP  3 ENVIR(1)»XKT0MS3{ 7.5/(£NVIR(2)3XNM70m))»».09662 
BEAUS  * AC0N«(r£MR/XHT0HS)3»B£TA 
XFRE»RC( 1).0»L(NEXT) 

CALL  ClUT5I6(XFRE.BEAUS.ALPHAD.SI G2.P0LRZ) 

V * 1AU(NEXT)*CNM/(2.*C0S(ALPHA))*XNMT0M 
ThETT  3 ASIN((HT*HR)/SR  - SR/(2.«RE)) 

|F(RC(2).E0.1.  ) THETT  * PBBS-OSTAR.XNHIOM/RE 
SHT8  3 -SIN(THET8/2.*TmEII) 

SPTB  * SI N( IMETB/2.-IHETI) 

RADM?  * SNTB*SMTB-2.*HR/RE 
RADP2  3 SPT8*SPT6-2.*HR/RE 
IF(RAOH2.LT.0)  GO  TO  26 
RNTd  * 2.«HR/(SMf8.S0RKRA0H2)) 

GO  TO  27 

28  RHTB  3 i.F»100 
27  IF(PADP2.LI.0)  60  TO  29 

RPTB  3 2..HR/(SPTB3S0RT(RADP2)) 
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S430f  IF(RPT3*LT.«)  RPTB  c 

54400  CO  TO  2» 

54500  28  RPIB  : UE«100 

54600  29  CONTINUE 

54700  R1  s 4NI  N1($Rf  OST*R*XNMrOM) 

54800  R2  = 4MI  NUSR^V'DCTtR^XNMTOM) 

54900  IF(RMIB»LT«0)  RMTB  = T«E*100 

55000  51  > 4M*X1(Rt>RPIB) 

55100  S2  : 4MI N1(R2iRMTB) 

55200  »S  = .5»PHIB  *(1./(S1*51)-1./(S2*S2)) 

55300  4R  = PI»(1./(R1«R1)-1./(R2«R2)) 

55400  0$  3 4MAX1(0«0>05) 

55500  4R1  = HR 

55600  4H2  3 hS 

55700  C 3 TtMPHR*SR**4«5l62/T4RCS 

55800  SIC  = C 

55900  SI6C  3 C*<(4C4IN-$0>HS*SL*HR)*SUBC(NEXT) 

56000  EJ  : EJ  ♦ SIGC 

56100  20  continue 

56200  RETURN 

56300  END 

56400 

56500 

56600  

56  700 
56600 

56900  bUBROUlINf  CLU T5 I 6( XFRE > XBE iU» XA NO t S I 62* POLH2 ) 

57030  CONHCN/A/  S I G0H ( 7 . 6 • 5 ) tS I 00 V ( 7 16 • 5 ) • XP AR ( 3 1 7 ) 

57100  OlfllNblON  IL  IM(2i6t5)«IN0EX(3t2)iN0X(3) 

57200  DIMENSION  PAR(3) 

57300  DATA  NDX/7.6*5/ 

574  00  DATA  (XRAR(  1 • I ) • |3 1>  7 )/500>>12S0>t 30003>56003i9000.»  17O00.t 

57500  1 35000*/ 


57600 

6A  TA 

(XPAR(2. 1 )t 

I=1.7)/1.. 

2*  ♦ 3* 

f 4 • 

t5**6«*«)*/ 

57700 

DATA 

(XPAR(3»I ) • 

1 =1.7)/1..3..10 

>.30.. 100..0..0 

57800 

DATA 

SI G0H/ 

57900 

1 

- 100. 

• - 1i^)0***9id*t-87*** 

64. .-84. .-84 

58000 

1 

-94*. 

-94. .-88.. 

-79.. 

-72 

.- 72..-7Z.. 

58100 

1 

-95*. 

-90. .-75.. 

-63.. 

-63 

»*b3»*“63*t 

58200 

1 

-90.. 

82. .-68.. 

-62.. 

-55 

.-55.. -55*. 

58300 

1 

-75.. 

-75. .-58.. 

-55.. 

-48 

* '46 • • *48  • ♦ 

58400 

1 

-65.  • 

"65*  * 

-48.. 

-42 

. -42. . -42*  . 

58500 

1 

-90.. 

-90. .-95.. 

-79.. 

-74 

.-74. .-74.. 

58630 

1 

-84.. 

-8< • • - 76 • • 

-72.. 

-69 

58  700 

1 

-87.. 

-78. .-66.. 

-61  •» 

-57 

»"57»*'*57«» 

58800 

1 

-72.. 

-72.. -50.. 

-50.. 

-46 

• “4S**  *46 •» 

58900 

1 

-67.. 

-67. .-48.. 

-44.. 

-42 

.-39. .-39.. 

59000 

1 

-62.. 

-62. .-44.. 

-41.. 

-39 

.- 39.. -39*. 

59100 

1 

•86.. 

-80. .-73.. 

-70.. 

-66 

59200 

1 

-84.. 

■ 73 • * "65 • * 

-56.. 

-49 

•*43«i'41»» 

59300 

1 

-82.. 

-65» • “SS*  * 

-48.. 

-44 

. -40 . . -39. . 

59400 

1 

-78.. 

-62**'48»> 

-43.. 

-40 

t*37«**'36** 

59500 

1 

-C7.. 

-39.. 

-36 

.-  34. .-32.. 

59600 

1 

-C5..- 

5 3* ♦ "4^  • * • 

35..- 

33. 

-31. .-30./ 

59700 

DA  Ta 

(((SI  G0H( 1 . 

J.K) . 1 3l,T), Jai,6) 

K«4.5)/ 

59800 

1 

-75.. 

-72. .-63.. 

-63.. 

-58 

* '55* 1 - 53 • * 

59900 

1 

-70.. 

■*66***59»* 

- 54  • # 

-43 

. '45* . -4  3. * 

60000 

1 

-6f,.. 

-48.. 

-42 

60100 

1 

-61  .. 

" jO  • * G • 1 

-i'mf 

-3  9 

.-  37. .-37.. 

60200 

1 

-56.. 

-38.. 

-35 

» 3 J • > ■ » 

60  30  0 

1 

-53.. 

-4G..-30.. 

- 34.. 

-32 

.-31..-31.. 

60400 

1 

-60.. 

•33#»“CC«» 

* ♦ 

■ 5C 

1 1 3 • * * 4 5 • * 

60500 

I 

-58.. 

-53. .-59. 5. -53. 

» - 5 
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60600 

1 -55 

.-55 

.-51 

• 1*45 

..-43 

. . - 35.  • 

-33- 

60700 

1 -50 

.-<6 

.-46 

• *-4C 

..-37 

..-33." 

-31* 

60800 

1 -48 

.-45 

>-33 

• 5»  *37 • * *33**-31***’29< 

60900 

1 -47. 

-43. 

-36. 

.-33. 

.-31. 

. -23.>  - 

610P0 

data  si G0V/ 

61100 

1 -9b 

.-96 

.-86 

.-03 

1 - GO 

.-60.. 

-80. 

61200 

1 -91 

.-91 

.-85 

»-74 

.-85 

.-65.. 

-65. 

61300 

1 -90 

.-87 

.-72 

.-64 

»-56 

• -S6.. 

-56. 

61400 

1 -85 

.-79 

.-65 

.-66 

.-51 

.-61.. 

-51. 

61500 

1 -72 

.-72 

.-55 

.-53 

.-48 

. -48.. 

-48. 

61600 

1 -63 

t-63 

.-50 

.-46 

• -44 

.-44.. 

-44. 

61700 

1 -80 

.-ee 

.-71 

.-69 

. -64 

. -64. . 

-64. 

61600 

1 -76 

.-76 

.-€2 

.-60 

.-58 

.-58.. 

-58. 

61900 

1 -80 

.-71 

.-59 

.-55 

.-52 

• -52. . 

« ^ 'X 
04.  • 

62000 

1 -66 

«-66 

.-55 

»-4$ 

.-45 

. -45.  • 

-45. 

62100 

1 -61 

.-61 

.-54 

> -46 

.-43 

.-33.i 

-3£. 

62200 

1 -57 

.-57 

.-50 

.-44 

.-39 

• -39.. 

-30. 

62300 

1 -75 

.-68 

.-64 

.-62 

.-C0 

.-C2.. 

- 0*  ■» 
UA>  • 

62  400 

1 -70 

.-€5 

.-56 

.-53 

. - 50 

.-47,. 

-40. 

62500 

1 -63 

.-58 

.-53 

.-4? 

.-44 

.-42.. 

-36. 

62600 

1 -58 

. -54 

.-48 

.-43 

.-39 

.-37.. 

- 34  • 

62  700 

1 -55 

. -45 

.-42 

. - 3 0 

>-37 

.-34.. 

-32. 

62800 

1 -52. 

-43. 

-38. 

-35. 

-33. 

-32..- 

31./ 

62  900 

data  (((SIG0V( 

1 » J.K) . 1 »1 

7).J 

1.6) 

.K  = 4 .5 ) / 

63000 

1 -65 

» -G4 

. -64 

. -CO 

.-56 

. - 52.  • 

- 46  . 

63100 

1 -60 

.-53 

. - 52 

.-49 

.-45 

. -43.  ’ 

- 4 ■ • 

63200 

1 -55 

.-53 

. -49 

.-45 

.-41 

• -39*  * 

-37. 

63300 

1 -43 

.-43 

.-43 

. -40 

.-38 

.-36.. 

-34. 

63400 

1 -38 

.-38 

.-38 

.-3S 

.-35 

. -33.. 

•31. 

63  500 

1 -38 

.-38 

.-35 

. -33 

' -31 

.-31.. 

- 30  . 

63600 

1 -45 

.-46 

.-47 

.-46 

. -49 

.-45.. 

-44. 

63700 

1 -40 

.-40 

.-42 

.-44 

.-42 

. - 40 . . 

-36. 

63600 

1 -35 

.-37 

.-38 

.•39 

.-36 

1 - 34 . • 

-33. 

63900 

1 -34 

.-34 

.-34 

.-34 

.-32 

.-32.. 

-31. 

64000 

1 -30 

.-31 

.-31 

.-32 

• - 3 1 

.29.. 

-20. 

64100 

1 -25. 

-28. 

-20. 

-28. 

-26. 

-26..- 

26./ 

64200 

data  1 l I H/2 .A.Z.b.  1 

5.1. 

5.2.5 

2.5. 

64300 

1 ?.b»2«5.1.5»2>5 

.2 .s.a.e. 

64400 

1 1.5. 1.7.1. 

7.1.7 

.1.7. 

1.7. 

64500 

1 1.7.  1. 7.  I. 

7.1.7 

.1.7. 

1.7. 

64600 

1 2 . 7 . 2 . 7 . 1 . 

7.1.7 

.1.7. 

1*7/ 

64700  C 

64800  tNC)  c POLR7*3*14189?65/180. 

64901  PAR(I)  : «04X1(»00>>A4I  «t1<XFREi3b000>)) 

65000  P4fi(?)  = AM4XU  l.»A4l\1(X-3E4U»6.)) 

65100  P4P(3)  * *MAX1(U<ANI  N1(  ie.*X4NGf  100.)) 

65200  DO  10  I : 1>3 

65300  NO  s NDX(I  ) 

65400  DO  30  K ::  1.NU 

65500  IF(P4R( I ).GI.XP4N( I >K))  60  TO  30 

65600  iNDEX(lil)  > M4X0(K-1>1) 

65700  IN0£X( 1.2)  : K 

65800  GO  TO  9 

65900  30  CONTINUE 

66000  9 lf( |N0£X( I .2).NE.  1 ) GO  TO  10 

66100  INDEX' It?)  =2 

66200  10  CONTINUE 

66300  C 

66400  C CHECH  FOR  NONEXISTENT  DATA 

66500  C 
66600  C 

66700  C CALCULATE  SIGMA  ZERO 

66000  C 


i 


I 

t 

I 


I 


I 
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669*0 

6/«»0 

67t«f 

67200 
673*0 
67490 
6 7S90 
67699 
67  799 
67899 
67996 
68000 
6819* 
682*6 
66396 
664*9 
66500 
6860  0 
68700 
66800 
689*0 
69090 
69100 
69200 
69300 
69400 
69600 
69600 
69700 
69800 
69900 
70000 
70100 
70200 
70300 
70400 
70600 
70600 
70700 
70800 
70900 
71000 
71100 
71200 
M300 
71400 
71520 
71690 
71790 
71B00 
71900 
72000 
721*9 
72200 
723*0 
72400 
72  60* 
72600 
72700 
729*0 
72900 
73*09 
73190 


IM  IN06X(  1>  1).E0.  INOfcXi  1 i2)«4N0.IN0£x(2>1  )•£<)•  I NDEX(  2 >2  ) 
1*4N0>l7»0£X(3>t).£0>7M0il4(3>2))  60  10  S* 

SIG2  « * 

SIG2P  * • 

00  4*  I : 1>2 
00  40  J » 1*2 

00  4*  H » 1*2 

111  > IND£x(1«l ) 

112  * INDE7(2'J) 

113  < l»iO£X(3>K) 

1 Ilf  c INDEX!  1«3-l  ) 

I12P  ■ IN0EX(2.3-J) 

I13P  » IND£X(3»3-K) 

SICZP  s SIG2P  SlG*V(  1 11 1 1 12>  1 13)* 


1 A9S( XPAR( 1 tl 11P)-P*R( 1))* 

2 A0S(XPAR(2.II2P)-PAR<2))« 

3 Abi( XPAK( 3* I 13P ) -P*R( 3) ) 

49  SIG2  < SIQ2«  SI G0H( I 11 . I 12. 1 13)* 

1 A8S(XPAR(  1.  I riH)-PA«(  1))« 

2 A8S(XPAR(2.I  I2P)-PAR(2))« 

3 ABS(XPAR(3.I13P)-PAR(3)) 

sign  = 1. 

00  80  1:1.3 

1 1 1 : I NOEX<  1,1) 

112  = I NOEX( I .2) 

I F(XPAR( I . 1 n ).£0 .XPAR( I , I 12) ) GU  10  80 
SIGN  : S I GN*( XPAH(  I . I 12  ) -XPAR( I , I II  ) ) 

60  CONTI  NUE 

SIG2  : SIG2/SIGN 
SIGZr-  : SI  G2P/SIGN 
60  TO  60 
b0  CONI  I NUE 

1 Tl  I I NOE  X 7 1,  I) 

I 12  : l'.DEX(2.1) 

I T 3 = 1 NUEX( j .1 ) 

SI  G7  = SI  G0H(  I M.  I T2.  I T3) 

S I G7P  = SI G0v( I I 1 . I T2. I T3) 

60  CONJIftUk 

SIG2P  = 10.»«(SI62P/  12.) 

SIG7  * 10.»»(SIG7/10.) 

SIG7  = SQR1((SIC7»C0S(ANG))««2  * 7 S I G7P«S I N( ANG ) )»»2  ) 

RETURN 

ENU 


SUcJROUTINE  NEUPOSUN!) 

COI MON  NSCAN.NEX I .NUMTGT . I . OLOI »E NOT  I NE  »SN0DE7 15» 10) 

1 .PI  .PIClVEP2*190PI  >RA0IANt1AU(  15),0S1AR>0«L(15) 

1 .xr7l(10.4).XT7F710,4).1RGPOS( 1*. 7).SI 6JAM( II) 

1 .S I GIAR(  10. 3).EHV7 19).SI GMAH. IS9I 1. lENPvR 
1 .SHI’TA) .RC( 1S).RMOOE7 15.12). IWCOE( 1St2)>CUH(4000.2) 

COMMON/*/  ENV IR7  10)>SU9C( 15).RE.CNN.CCM,AC0N>BE1A. 

1 001P.P0LR7. IMETE.XKIOMS.XNMIOM. 1ARCS.0VL.FOPIOO.FOPISO 

CO0MON/C/  DEL(3),VEL(3),VELMAG2 
DAIA  NOLO/9/.  tULl)2-1.E-35/ 

M»  1 

IF  7T.NE.I0L0)  go  10  1 
IF  (KI.LE.NOIO)  return 
NUNOLO.  1 
I NOlC>NT 
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T32f« 
733M 
7 34M 
73S«I 
736«» 
737J» 
73M* 
739ff 
74IM 
74  1M 
742t> 
743M 
74424 
74Slt 
746t4 
74  7M 
74t»l 
74901 
75M0 
751*0 
7b?*0 
7531* 
754*0 
75500 
755*0 
75700 
7580* 
75900 
76000 
76100 
762*0 
76  3R0 
76400 
7650* 
76600 
76700 
76800 
76900 
7 7000 
77100 
77200 
7730# 
774*0 
775*0 
77600 
777*0 
77800 
7790* 
78**0 
7810* 
782*0 
783(0 
7843* 
7(500 
786*0 
78700 
78800 
7890# 
7900# 
79100 
79200 
79  300 
794(0 


T0L0*T 

00  90  J>N1>NT 

CT*(T-xr2l(Jt4))/(XTZKJt4)-XT2l(J*4)) 

00  TP  » 0 
00  5 I=1i3 

IR0P0S(  J.  I )«XT7I(  J»l  )*0T*(XYZF(JH  )-XT2l(Jtl  )) 

0EL(  I )<TRCP0S( Ji I )>SHIP(  I ) 

OOIP  « OOtP  ♦ (0£L(l)«VEL(D) 

5 CONTINUE 

OST40s9S.2*ShIP(4) 

0X«0EL(1) 

0T*0EL(2) 

02*0EL(3) 

D*SORT{OX«OX*DY»OT) 

0H*LF*S0RT(0) 

TRGPu5( Jf4)*SOhT(OX«OX*OY«OT*D2*D2) 

I«8P0S(J«7)  » 0 

OOTP  * 00TP/(S0RT(VELN4G2)«TR6P0S(J.4)) 

IP  (O«GT*0<00#001)  GO  TO  10 
C THE  T4R0ET  IS  NO*  OIRECTLY  OVERHEAD 

TR6P0S(  Jt6  ) = P I 0VER2 
GO  TO  2* 

10  Bs0H4EF/95.2-SMIP(4)/0M4LF 
BPRIN£=TPGP0S(Jp3)/0-B»B 

IF  (BPRINE«LT.0.0«ANO«O*6T«OSTAK)  GO  TO  80 
C the  target  HAS  NO*  BEEN  FOUND  TO  BE  IN  SIGHT 

TRGP0S(J>6)  X ATAN(OPRINE) 

C NO*  CONFUTE  THE  TARGET  HORIZONTAL  ANGLE  (CC*  FROH  EAST) 

20  IF  (ABS(OX)>6T«0>000001)  GO  TO  30 
C THE  TARGET  IS  AT  PLUS  OR  NINUS  P I /2 

BTEHP  * PI0VEH2 
IF  (OY.GE>0*0)  GO  TO  40 
BTEHP  : -PI0VER2 
GO  TO  40 

30  BTEHP  = ATAN(OY/OX,' 

IF  (OX«GE«0<#)  GO  TO  40 
RTEHP  X BT£HP*PI 
40  IF  (BTEHP. GE.0.0)  CO  TC  50 
BTEHP  = BTENP.T*OPI 
50  TRUPOS(  Ji  5)xBTENP 
GO  TO  92 

C THE  FOLLONING  APPLIES  TO  AN  OUT  OF  SIGHT  TARGET 

8#  TRGPOS( J>4)x-TRGP0S( J.4) 

90  CONTI NUE 
RETURN 
END 


SUBROUTINE  NEXTSCN 

COHHON  NSCAN.NEXT«NUNTGr«rp0LOT.ENO7IHE>SHO0E(  15>10) 

1 tPI iPI OVER2pT*0PI*RA0I AN«TAU( IS ) • DS T AR .0*L( 15) 

1 .XYZKIBpATpXYZFC  10t4)tTRGPOS(  10*7)  pSIGJAMC  10) 

1 fSl  GTAR(10.3) .FHV( 10)iSlGNAH>lS*l TtTEHP*R 
1 <SHIP(4)  pRC(  15)pRR0OE(  15f  12  ) • I MODEd St 2 ) >CUM ( 4il#0 .2 ) 

COHNON/B/  ENV|R(  10)  tSUBC(  IS  ) t RE  tC NH iCCH t ACON iB F TA  t. 

1 OOTP tPOLRZt  IKEYFtXHTOHStXNNTOHi 7AKCS.*VLiF0PI08tF0PIS0 

10  IHINX1.E38 
NEXT=0 

DO  20  JxItNSCAN 

IF  (RN0DE(J>9).CE*THIN)  go  TO  20 
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79SM 
796ti 
797i» 
79991 
79990 
8999f 
90199 
99299 
99399 
89499 
89599 
89S99 
99  799 
89899 
89999 
8 1999 
91199 
8 V99 
81399 
8 1423 
8 1599 
81699 
81798 

O 1 O'*  • 

■ V * ’ » 

8 199C 
8<999 
9?109 
82299 
82399 
82499 
82599 
82699 


IhINaRMOOEC Jt8) 

NEXT<J 
29  CONTINUE 
1*TN|N 
J«NEX1 

RNOOE(U>»)«RHOO£( J'»)«RN0DE( J»5) 

CALL  NEMPOST(I) 

IF  (TRCP0S(1>4).G1.9.9)  00  TO  39 
IF  (T.LE^ENOTINE)  60  TO  19 
RETURN 

39  TEMP  : RM0D£(J*1)  - RC(2)*I*63*RC(S) 

IF  (TROPOSdtS)  .0E»  TEMP  .AND.  TR6POS(1»6)  .LE. 
1 RM00£( J|2).4N0.TR6P0S( 1 t 4 ) «LE •RHODE ( J» 7 ) 

1 .»NO«IROPOS( 1»4)«ST»SM00£(J»1))RETURN 

00  TO  19 
ENO 


FUNCTI  JN  9£4M(4LPM4f0ET4»0AMM»tKEY1) 

common  / I / PRJ5  tllOFA  »IHET3R  t03009N»lHM»  THViCN 

CO:/»OS  NSC»NfNE*r.Nl)MrOT»  T.  01  3 f » E NO  T I «f  • iMOO£(  15.10) 

1 »PI  .PI  OVEH2.190PI  >ri4D14f(.  TAUC  1 5 ) » J i I Ar( . 04L  ( 1 6 ) 

1 .XTJKU.SI.XTZFl  19.4  )»TROPOS(  10.7)  •.  1 'jjr.lK  a" 

1 .$1  0I4R(  IPO)  >F  MVC  19)  .5  I SM«h.  I$I)  I T . TEF'PkR 

1 .SMIP<4)  .f'C(  irO  »PWCLE  ( 1‘ . 1,') . !:OOi.(  15»2)»  :uru/.c  2 . , 

IHLU  = 2«  73»JLI  I I / PEI  t 
If  (OAMMi  .EJ  . 1 ..  M,(  .Pt  n .EC  • 1 ) 60  TC  4f 
If  ( IHt  1 *.6l.  I.EE-t)  Oi.  U'  2;: 

5INl<1.9 


I 

» 


82T9C 
82890 
82909 
83990 
83109 
83290 
83399 
83408 
8 3599 
83609 
83799 
83899 
83990 
84090 
84190 
84299 
84399 
84409 
84599 
84609 
84799 

84899 

84900 
85999 
85199 
85299 
85399 
85499 
85599 
85699 
85799 


00  10  3P 

29  tine  - (J  N»(  rMU*‘)/;fET4)«»2 

5 I NC  = «MAX  1(0f,[  OMN.S  I NC  ) 

I f (4ei( IHtlt ) .CT.3. 14 159 )S I NC»ORDO»N 
00  ro  3f 
49  CONI  I HUE 

iHtTfR  • 2.»rnbi 

fOFM  * .25»(  TH£IPM»SORT(  THE  If/ • II'LIf;H*3»1«RC(  5)«RC(5)  )) 
IF(PRBS-4LPH4.CI.H0FN)  CO  TO  59 
lf(*e5(TM£T*).G1.1.E-£)  00  TO  55 
SINC  < 1. 

06  TO  39 

55  SINC  s (SIN<THEU)/IHET4)»«2 
CO  TO  39 
59  CONTINUE 

IF(PeB5-»LPM4  .LT.  RMOOE ( NE X 1 . 2 ) ) CO  TO  60 
SINC  * ORCOMn 
CO  TO  39 
69  CONTINUE 

THET4  » 2.T83«(P0F*(-P86S)/e£T4 

SINC  t (SIN(TmE1*)/TMET»«SIN(H0F«)/SIN(FBBS-4LPM*))«»2 
39  SE4M  : SINC 
65  CONTINUE 
RETURN 
END 


FUNCTION  SML4NG  (ANGLE) 
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T 

f 

m 

i 


8&8f» 
8 $988 
88888 
86188 
86288 
86388 
86488 
86S88 
86688 
86788 
86888 
86988 
87188 
87158 
8 7288 
87388 
8 7488 
87588 
8 7688 
87788 
8 7888 
87988 
88888 
88  188 
88288 
88320 
88408 
88588 
88680 
88  788 
88808 
88888 
88880 
88188 
88288 

88  388 
88488 
88580 
88680 

89  708 
88808 
89988 
98808 
90188 
98208 
98  388 
98488 
98588 
98680 
98  708 
98800 
98988 
91888 
I11N 
91288 
91388 
9140C 
91588 
91688 
91788 
91888 
91988 
92008 


PI  < 3*1415926536 
ThOPI  X 2**PI 
4=4BS(4NCLE  ) 

18  IF  (4.LN780PI)  GO 
»x*-T80P I 
60  TO  18 

28  IF  (4.U.PI  ) GO  10 
4XTI0PI -A 
30  SM17N6XA 
RE1UHN 
END 


TO  28 


30 


SUOFOUTINE  NATCH 

COMMON  NSCANiNEXI*NUMTGT  > T lOLDT •i  NJl IPL>5M00E( 15i  18) 

1 *PI  •PI0VEK2*  rVOPI  *PAOI  AN>TAU(  1 5 ) >057  AR  r OmU  1 5} 

1 >XT2l(1C>4)>XY2F(18t4)>TRGP0S(  10. 7) >5  I G JAM ( 10 ) 

1 >SI6TAH(  10>3)>FHV(  18)>SI3HAH.lS8l  T>TEMP8R 

1 .5hIP(4)iRC( 15)>RH00E( 15.12 )• IM0DE( 1S>2).CUM(4C00>2) 

COMMON/b/  ENVIH( 18>.SUBC( 15 ) > RE .0 NM >CCM. aCON .9E 1 A . 

1 OOIP.PuLR2.UtTf.XiMJMS.XN'>TLM.IA,<C5.4VL.FOPIOII.rLPISO 

COMMON/C/  A(3).B(3).BMAC2 

C MUCH  S;anTIME  ','.*1015  KITH  TIMES  THAT  ThL  lAnOCt 
C COMES  MIlHIN  IM£  SCOPE  LIMlIb. 

DO  18  Kx1»3 

A(M  )«XTZ 1 ( 1 .A)  -SHI P(M) 

R(M  ) = XT2F(  1.K)-XT2 I ( 1 .K) 

10  CONTI HJE 

AM402  = A( 1 )*A( 1)*J(2)«A(2)*A(3)*A( 3) 

BMAo2  = d( 1)*a( 1 )*3(2)*B(7)*E(3)*a( 2) 

400TB*A(  1)«8(  1)  *3(2  )*9(  ?)  *4  ( 3 )«9n) 

AD0ld2xAD0lB*AuUlH 
00  40  |x1»NjCa:< 

RMODE( I .blxRMOdc (I•6}*XT7|(1,4) 

R2=HM00t  ( I . 7)*RM0DE  ( I . / ) 
plSt  = A00IH?-8M4j2*(4'4432  -R2) 

If  (DISC  .OE.0.0)  PO  ICI  00 

y.  This  applies  TO  A TARGET  MHICH  NEVER  GETS  NITHIN  RANGE 

50  RMuOE(  I >9)xEN01  IMF*1*9 
GO  TJ  48 

68  IEKM3S0R1(0ISC) 

UMI NuSx- 1*8*(A00T8*1EHH)/BMAG2 
UPluSx( TERm-A00T8)/9MA62 
■ Ml  X OS  >AMA  A U 'JM  I NUS  >0*8) 

■PLOSxAM  I NK'JPLUS.  1*8) 

IF  (4NINUS*>T.iPLU$)  60  TO  50 

XSCANiXT/l ( 1*4 )*HNI NUS*(XrZF( 1*4)-XTZ I ( 1>4 ) ) 

IF  (RMOOEC I >9)*GE*XSGAN)  GO  TO  80 
XNAAINT(( <3CAN-RM00E< I >9))/RM00E( I >5)) 

RMOOE< I*9)«8«G0E( I >9>*XN*RM00E( I >5) 

IF  (VSCIN.E0*R«00£(  li9>)  60  TO  88 
R«OOE( I >9)«RM00E( I >9)*RN00E( I >5) 

40  continue 
RETURN 
END 
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921tf  SUBROUTIME  TAR&I6 

9221*  COMMON  NSC*NtNEXTiNUMTGT*T>0LDTiEN0TINE>SMO0E(1S>1«) 

923H  1 >PI  •PIOVER2iTHOPI  (RAOI  «N»T*U(  IS)  •OSTARiDMLC  15) 

924H  1 •XT2I  ( Ilf  4)>XT2F(  iei4)>TRCP0S(19i7)>SlGJAM(  lii) 

92511  1 i5l GTAR( lit  3) fFHV(  II) tS I GMtHf ISHI T > TEMPHR 

92611  1 >CHIP(4}fKC(15)iRM00E(15il2)flM0DE(15f2)fCUM(4«l«!f2) 

92710  COMMON/B/  ENVIR( II) tSUdC( 15)f REfCNMfCCMf ACONtBETAf 

928IP  1 OOlPfPOLRZflMEYEtXKTOMSfXNMTOMf TARCSiHVLfPOPIOBfFOPISO 

92901  dimension  rEMP(4) 

93011  COMMON/E/  A(4) 

93101  TEMPI  1)  = DOIP 

93200  bO  10  I : 2f4 

93300  10  TEMP(I)  = 2.«TEMP( l-1)**2-1. 

93410  TARCS  = A(4)  ♦ A(3)»T£MP(4)  ♦ A(2)«TEMP(3)  - A(1)«TEMP(2) 

93500  RETURN 

93600  END 

93711 

93800 

93900 

94000 

94100 

94200  SUB9CUT I HE  I U T t R ( Dt  L T . A t A 4 t 9 f 98  .C  .CC  ) 

94300  tOB  = ALOG(A)  - DLL T fALOGI AA ) 

94400  BOB  = ALOG(B)  - DtL T«ALOG( 89 ) 

94500  COB  = (B0B-A0B)*(CC-AA)/(08-AA)  * aOB 

94600  C = CC»»OEU«EXP(COB) 

94700  RETURN 

94800  END 

94900 
95000 

95100  

95200 

95300 

95410  SUBROUTINE  UFUN  ( 2 1 CA  i C A NS  ) 

95500  common  NSCANfNEXTf  NUMTGTi  TfOLOTiENCiT  IMEf  SMOOEI  ISf  10) 

95600  1 tPI fPI0VER2f T0OP I fRAOl ANf TAU(  15)fDSTARtOML(15) 

95700  1 tXYZI ( 10f4) fXTZri  10f4)fTRGPOS( 10f 7)fSlGJAM( 10) 

95800  1 fS  I GTAH( 10> 3)tFHV( II) >S I GMAHf I Sil Tf TEmPMR 

95910  1 •SHIP(4).KC(15)fRMOOE(15f12)f|MOOE(15f2)fCUM(4000t2) 

96000  COMMON/B/  ENV IR( 10)tSUUC( 1S)tREf CNMtCCMf ACONtBETAt 

96100  1 OOTPfPOLRZfIMfcTFfXKTOMStXNMTOMfTARCSiHVLfFOPIOHfFOPiSO 

96200  complex  CAtCANSfCI fCXP3«C2f CA1fC73fCA13fCFI fCFIPtCCI fCGlP 

96300  1 fCF.CFPfCGfCGPf CH2fCM2P«C02fCD4fC24iCA14fCC£fCC£A 

96400  1 fCCfCCPtCAIRtCAIRPtCFMfCFPMtCCMfCGPMfCOLDA 

96500  IF(IS0l TfEO.1)  GU  TO  5 

96600  Cl  - (0.011.) 

96700  XC1  < .3550280539 

96810  XC2  * .2588194038 

96910  RTPI  : SQRT(PI) 

97000  CxP3  = CEXP(CI*PI/3.) 

97100  CA1  : CA*CXP3 

97200  0L02  • 0 

97300  5 CONTINUE 

97400  IF(7.E0.0107)  DO  TO  80 

97500  0L02  * 2 

97600  CZ  > (Z*CA)*CXP3 

97700  IKET  s 0 

97811  IF(CABS(CZ).GT.3.)  IKET  s IKETfl 

97900  |F(CABS(CA 1 ).6T. 3.  ) IKET  f IKET.2 

98010  IF(IKET.E0.3)  go  TO  10 

98100  I F( 1 SM I T.E0.1 .ANU. I KtT.EO.  1 ) GO  TO  10 

98200  CZ3  * CZ*CZ*CZ 

98301  CA13  < CA1*CA1*CA1 


▲.lA 


NRL  REPORT  8037 


984li 

Cfl  = 1 

96500 

CFIP  = 0 

90600 

C6I  > C41 

90700 

CGIP  : 1> 

90000 

CFH  * 1. 

90900 

CfPK  * 1./C41 

99000 

CON  = C2 

99100 

COP0  » 1 

99200 

X0UL1  » 1 

99300 

XNUL2  = 1 

99400 

1 « 0 

99500 

20 

1 =.l*1 

99600 

XMULl  * XHUL1/(3«I*(3«I -1)) 

99700 

XMUL2  * X*tUL2/((3*l*1)»3*I) 

99000 

CF9  = CF0«C23 

99900 

CFP9  = CFPN«C413»(3*I )/(N»X0(1.3>l -3)) 

00  1 30 

tGK  - CG0*CZ3 

00200 

COPN  = CGPM«C4  13*(  3«l  ♦D/O*  1 -2) 

00300 

OF  = XMUL1*CFtl 

00400 

CFP  = XNUL1*CFP»» 

00500 

R£»1  = REAL(CF) 

00600 

C0H1  s «IM46(CF) 

00700 

RE42  = RE4UCFP) 

00600 

COf.2  = 4 IMAG(CFP) 

00900 

CG  = XHUL2«CG1 

01000 

CGP  = XWUL2»CGP" 

0 1100 

CFI  s CFI»CF 

01200 

OFIP  = CFIP*CFP 

01300 

CGI  * C0l*C6 

01402 

CGIP  = CGIP»CGP 

01500 

IKEYl  r IKEr*1 

01600 

RE*  < REAKCFl  ) 

01700 

COM  r « |M*G(CF 1 ) 

01800 

00  10  (22»23t24)  IKEYl 

01900 

22 

IKC*85(XC1«CF-XC2«CG).LT..005»C*9S(XC1«CFI-XC2«CCI  ).AN0* 

02000 

1 CAdS(XC1«CFP-XC2«CGP).LT».005»CABS(XC1*CFIP-XC2*C6IP)) 

02100 

1 GO  TO  21 

02200 

GO  TO  20 

02300 

23 

IF(C*aS(xC1«CFP-XC2»CGr).L1..005»CABS(xC1«CFIP-XC2»CClP)) 

02400 

1 GO  10  21 

02500 

GO  10  20 

02600 

24 

IF(CAaG(XC1*CF-XC2*CG)«L  r..00S*CA85(XC1*CFI -XC2*CCI  ) ) 

02  700 

1 GO  TO  21 

02000 

GO  TO  20 

02900 

21 

CONTI  NUE 

03000 

IF(  IKEY.E0.1)  GO  TO  25 

03100 

CH2  « CI«3«02617»(XC1*CFI -XC2«CGI  ) 

03200 

25 

IF( IKET.LT.2)  CM2P  s C 1 *3.026 1 7*( XC 1«CF 1 P-XC2«C0 1 P)«CXP3 

03300 

IF(  IKEY.EO.f)  60  TO  70 

03401 

IFdSMI  T.E0.1.AN0.IKEY.E0.2)  GO  TO  70 

03500 

10 

CONTI NUE 

03600 

C07  = 2./3.*CExp( 1.5*CL0G(C7) ) 

03700 

CO*  » 2*/3.*CEXP( 1.5*CL0G(C*1 )) 

03800 

C24  s l./CSORKCSORTICZ)) 

13900 

CA14  ’ CSQKT(CS0RT(Ca1)) 

04000 

CCF  * CtxP<*C07) 

04  100 

CCE*  * CEXP(-COA) 

04200 

CC  * .5*C24»CCE/RTPI 

04  300 

CCP  = -.5*C*  14.CCEA/RTPI 

04400 

XMULl  * 1* 

04502 

CAIH  s 1 

04600 

CAIRP  s 1 

04  700 

CFM  I 1. 
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' i 


048«» 

CFPM  = 1. 

• 49M 

1 ‘ 0 

• SM« 

40 

1 » 1*1 

• 5l«f 

K * 6»l -1 

• S2«f 

00  5*  J * It 3 

eisee 

XM-JL1  = XMUl1«K 

IS4CI 

K = K-2 

• SSitf 

50 

CONTINUE 

•S6«l 

XNUL1  ® XNUL1/(216«I«(2»I -1)) 

•ST»e 

CFN  » CFN/COZ 

158*0 

CF  a XMUL1*CFN 

059*0 

CFPN  a CFPXt ( ( G* 1 tl)/! 1-6»l ) )/C0* 

06000 

CFP  a XMULIaCFPM 

06100 

C4  |ft  a CAIh*(-  1)*t  1 «CF 

*6200 

C4IRP  a C41KP*(-1)»*1»CF^ 

*6300 

60  70  (5  It  S3. 53)  Mtr 

*64*0 

51 

IF(C*9S(CF).LT..332)  60  TO  60 

*6500 

60  10  46 

06600 

52 

IF(C4eS(CFP).L1.t0l'O)  GO  Tj  6j 

*6700 

60  TO  40 

06800 

53 

1 KC*BS(CF).LT..8<2.A1iC.C13S(CF'').'.r..(82)  00  Tt  60 

06900 

uO  TO  4( 

0 7000 

60 

CONTINUE 

07100 

IF( IkEY.NE.2)  Ch2  I C 1 •3.0261  :»CC«CA IF 

0 72  00 

IF(  IKEY.GE.?)  CH^F  - CI*3.02617«CCP*C4IRP*CXP3 

07306 

70 

CONI INUE 

07400 

CANS  a CI»CH2/CH2F 

0750* 

COLOA  a CANS 

07600 

RETURN 

07700 

8* 

CANS  a COLOA 

*7800 

return 

07900 

END 

*8*00 

081*0 

083*0 

08400 

*8500 

SU0ROUTI NE  RNbCEN(0ELTtSR1tSR2tR1tR2tS) 

08608 

COMMON  NSCANtNEXTiNUMTGT t TtOLOTiEULT IMEtSMOOEI  15.10) 

*87(0 

1 tPI  Ip  I0VER2.TII0PI  |RA0IAN.TAU<  1 5)  lOS T AR 1 0*1  ( 1 5) 

*8800 

1 .XT2I(I0.4).XY7F(  10.4) .TR6P0S( 10. 7) tS 1 6JAM(  IS) 

*89(0 

1 tSI  6TAR(  10.3).FHV(  10 ) i S 1 GMAH 1 1 SH  1 T t TLMl'tip 

*90«* 

1 tSHIP(4).RC(  1S).RM0DE(  1 5. 12  ) . 1 »;C  0£  ( U .2  ) tCUM(4000  .2) 

*9180 

COMMON/B/  ENVIR( 10)iSUBC( 15 ) tRE tCNM .CCM. ACON.UCIA i 

*92*0 

1 00TP.P0LR2.  IKE  YF.xr.  Tuns.  XNPTCMt  TARCS.MVltFOPlOB.FOPlSO 

*93*0 

CONMON/F/HRiMT 

*9400 

1 a • 

*95*0 

1* 

CONTINUE 

*96*0 

ASS  a RE*S*S 

*97*0 

VI  a SORT! 1.*2.»HR/ASS) 

*98** 

V2  a SORTC 1*«2.*HT/ASS) 

09900 

V a ( 1.tVl)/NR  ♦ (1.*V2)/HT 

1**0* 

F a 4.»S/V  - OEll 

1*100 

FP  a 4.*V  ♦ 8. /ASS  • ( T./V1+ 1./V2) 

1*?(* 

FP  a FP/(V»V> 

1*30* 

S a S-F/FP 

1040* 

lF(AeS(F).LT.OELI/l0.)  60  TO  2* 

105*0 

|F( 1 .6T.10)  6C  TO  20 

106*0 

1 a )♦! 

1070* 

60  TO  10 

1*800 

20 

CONTINUE 

1090* 

ASS  a R£.S«S 

11000 

T a 2»aMR 
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HIM 
112M 
113M 
H4M 
11 5M 
11CM 
11TM 
118M 
11M8 
12  Mf 
12 1M 
122ff 
12  3M 

12««e 

125M 

126M 

12TM 

12Bf« 

129M 

13Mf 

13120 

13200 

13300 

13400 

13S00 

13600 

13700 

13600 

13900 

14000 

14100 

14200 

14300 

14400 

14S00 

14000 

14700 

14600 

14900 

15000 

16100 

1S200 

15300 

15400 

15500 

15600 

15700 

15000 

15900 

16009 

16100 

16200 

16300 

16400 

16500 

16600 

16700 

16000 

16900 

17000 

17100 

17200 

17300 

17400 


01  ■ T/(6*S0RT((*SS«T)/RE)) 

7 • 2»»HT 

02  • T/($*SO0I((4SS*I)/R£)) 

SRI  ■ SO0T((01»01>H0*H0)/(1*«H0/0C)) 
S02  « $O0l((02*02-HT*MT)/(1.*MT/0t)) 

return 

ENO 


Subroutine  04iN(iRETtiT4R>S4iNR) 

COMMON  NSC«N>N£XTiNUMTCT>T>OLOTtENOTINEfSMOOE(  15 >10) 

1 tPI <Rt }VER2>TM0PI >R«0I4N»T4U( 15)>DSTAR>0HL(  15) 

1 (XYZK  10t4)txr2F(10>4)tTRCROS(10t7)tSlGjAM(10) 

1 .Sl$T4R( le>3)>FHV(10)»SlOH«H> ISNIT'TEHRMR 

1 tSHIP(4)<RC(16)>RM00E(1S>  12)>IN00E< IS* 2)>CUN( 4000>2) 

COMMON/8/  ENVIRC 10}iSuaC(1S)*REtCNM*CCM>4CON>BErt* 

1 OOTPtPOLRZ* IMEtFiXMT0mS.XNMT0MiT»RCS*BVL*F0P10B*F0PI SO 

COMMON/G/  SRTAR>$INPSI fCOSPSI 
COMMON/ I / PdeS*M3F>1«THETBi<>0a00«NiTHHiTHVt6N 
IF( (KET.es.l)  GO  TO  10 
64INR  3 SORT(FHV( I TAR)) 

RETURN 
10  CONTINUE 

OAR  « SNCA«6(rRGP0S<  I.5)-7ROPOS(  1 7AR»5)) 

ALFV  3 (2«*SRrAR3SINPSI«C0SPSl/(TR0P0S( I TAR*4)*XNNT0H)) 
|F(ALFV*LE»1.)60  to  30 
|F(ALFV.LE«1«01)GO  to  40 
40  4LFV31. 

30  CONTINUE 

ALFV3A$IN(ALFV) 

ALFV  3 TRGPOSd  TAR»6)-ALFV 
OAV  3 SMLANG{TR0PO$( tt6)-ALFV) 

|E(RC(2)*E0*1>)  OAV  3 (PBBS-ALFV) 

|F(RC(2)«E0>1>)  60  TO  20 

IF(0AH.lE.(1>13*RC(4))«AN0.0AV<LE.(1.133RC(5)))  60  TO  20 
gains  * RC(7) 

RETURN 

20  FH  3 BEAN(OAH*RC(4)*RC(2)i0) 

FV  3 BEAM(0AV*RC(5)«RC(2)*1) 

GAINR  3 FH*FV 

GAINS  3 AHAX1(RC(  7)>S0RT(GAINR)) 

RETURN 

END 


SUBROUTINE  NULP TH( I TAR. FAC  ) 

COMMON  NSCAN*NEXT>NUMTGT>T>OlOT*ENDTIME*SHOOE( 15*10) 

1 *PI *PI0VER2*TH0PI *RADIAN*TAU( 15 ) * OSTAR *0«L( IS) 

1 *XT2l(  10*4)*xr2F(19*4)*rR6POS(10*7)*Sl6UAN(10) 

1 *SIGTAR( 10*3)*FHV( 10)*SIGMAH* ISMI T*TEMPMR 

1 *SHIP(4)*RC(  15)*RN0DE( IS*  12 ) * I MOOE( 15* 2 ) * CUH( 4000*2 ) 

COMMON/B/  ENV!R( 10) •SUBC(1S)*RE*CNMiCCH* ACONtBETA* 

1 D0TP*P0LR2* IKErF*XKTOMS*XNMrOM*rARCS*HVl*FOPIOB*FOPlSO 

COMNON/F/  HR*NT 
C0HM0N/6/SRTAR*SII»PSI  *COSPSI 

complex  Cl *CTEMT*CP*CA*CU1*CU2*CTEMH*CGAMV*C0AMH 
1 *CGAM 
FAC  3 1* 
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i 


I 

I 


175i» 

17600 

17700 

17800 

17900 

11000 

18100 

18200 

18300 

18400 

18600 

18600 

18  700 
18800 
18900 
19000 
19100 
19200 
19300 
19400 
19500 
19600 

19  700 
19800 
19900 
20000 
20100 
20200 
20300 
20400 
20500 
20600 
20700 
20800 
20900 
21000 
21100 
21200 
21300 
21400 
21S00 
21600 
21700 
21800 
21900 
22000 
22100 
22200 
22300 
22400 
22500 
22600 
22  700 
22800 
22900 
23000 
23100 
23200 
23300 
23400 
23500 
23600 
23700 


IF(ENVIR(3)  t£C>  0<  ) RETURN 

IF( ISHI T.EO« 1 ) GO  TO  5 

XN7ER0  ■ 1.000313 

HO  • SHIP(3)»*NNT0N 

R4R  * HR /RE 

CHR  • HR*(1»-R4R) 

XRP4R  « 2.«PI/0VL 
XFRE=RC(1)»0«L(NEXT) 

IF(XFRE<OT>1500.)  GO  TO  6 
EP51  ■ B0« 

SIGI  : 4«3 
GO  TO  8 

6 IF(XFRE>Gr>3000«)  GO  TO  7 

EPS1  « 80«-0.00733*(XFRE-1S00.) 

SICI  : 4.3*0.00148*(XFRE-1S00>) 

GO  TO  8 

7 EPS1  « 69-0.0005714«(XFRE-3000.) 

SICI  < 6<52*0«001314*(XFRE-3000O 

8 CONTINUE 

Cl  > (0«0«1.) 

CTENT  » CNPLX(ePS1.-60.»0VL«SIO1) 

XKZERO  * XKP4R*XN2ERO 
H = (2.»XKZER0«XR/Eft0/R£)««(-l./3») 

XL  » 2.»(4.«XK2ER0/(RE«RE))**(-1*/3.) 

21  »HR/H 

CP  = CSORT(CT£NY  - 1.) 

IF  (REAL(CP)  .LT.  0.)  CP  * -1.0»CP 
CP  = CP«CI*XK2ER0«(C0S(P0LR2/R»DI4N) 

1 ♦ S I N(P0LR2/RA0l »N)/CTEMY) 

Ca  = 2.3381»CEXP(CI»2.«PI /3.)  ♦ 1*/(H«CP) 

XIMCA  : AIMAG(CA) 

CALL  UFUN<21tCAfCU1) 

I S9  I T » 1 
5 CONTINUE 
IKEY  * -1 

GRRT  = IRGPOST  I TAR>77«XNNTON 
20  CONTINUE 

HI  » TR6P0S( I TAK*3)«XNNTON 

HSUN  s HR*HT 

RAT  I HT/RE 

CHI  : HT«(1.-R»I) 

TENP  « S0RI(4./3.«(RE*(CHR*CHT)*GRR1»GRRT/4.)) 

TENPHI  * AC0S(2.«RE«6RRT«ABS(CHR-CHT )/(TENP»TENP«TENP>) 
GRRAO  =:  GRRI/2.*SIGN(1.tCHR-CHI)«T£NP*COS((I£MPHI*Pr)/3») 
GRIAR  < GRRI'GRRAO 

SRRAO  < S0RI(HR«HR*( 1 .«RAR)*GRRAO*6RRAD) 

SRIAR  > S0KI(MT«hI*(1.*RAT)«GRTAR«GRTAR) 
lANPSi  : CHR/GRRAO  - GRRAO/( 2 • *RE  ) 

|F(  TANPSI  (LE^R)  go  to  40 
cospsi  s grrad/srrao*(i«»rah) 

SINPSI  a 6RRa0/SRRA0*(TANP5UHR/0RRAD*RAR) 

50  continue 

RREF  a SRRAD*SRIAR 
PRREF  a SRR»D«SRIAR 
lEMV  a 2.aPRREF/RREF 
OISP  a SORT(( 1.-HSUN/RE)aRREF/ORRT 
1 aCOSPSI/d.^TENN/IREaSINPSI))) 

TENG  a (?.aSINPSl/RREF)aa2aPRREF 
PTHOIF  a RREFaTCNG/(1«*SQRT(1.-TENG)) 

IF(  IKEYaEOal)  GO  TO  30 
IF(PTH0IFaGE««VL/4.)  GO  TO  30 
IKEY  a I 
CRI TR  a CRR  I 
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I 


23af* 
239M 
24M« 
2410I 
242(0 
24300 
24400 
24S00 
24600 
24700 
24000 
24902 
25000 
25100 
25200 
25300 
25400 
25500 
25600 
25700 
25800 
25900 
26000 
26100 
26200 
26300 
26400 
26500 
26600 
26700 
26800 
26400 
27000 
27100 
27200 
27300 
27400 
2 7500 
2 7600 
27700 
27800 
27900 
28000 
28100 
28200 
28300 
28400 
28500 
28600 
28  700 
28800 
28900 


XN4T  « CRI TR/XL 

SINPSI  > 2.*MVL/4»*HSUM/(MVL/4«*0VL/4*«4.*MR*HT) 

C4LL  RNeCEN<«VL/4««6RR40iS8T4R>SRR*D>SRT*R>SINP5l ) 

6RRT  > CRRAO  * 6RT4R 
CRI  TR  =■  GRRT 

COSPSI  » S0fil(1.-SINPS|»SINPS|) 

XN4T1  * CRITR/XU 
60  TO  50 
30  CONTINUE 

CTEN8  = CS0RT{CTENY-C0SPS|«C0SPSI ) 

IF(REtL(CTEN0)  .LT.  0.)  CTEN0  * -1.0«CT£N0 
CG4NV  s (CTENY»SlNPSI-CTEM0)/(CTENY«SINPSI*CTEN0) 

CGAMH  X (SINPS|-CTEN0)/(SINPSI*CTEN0) 

CGAM  = .S*CL0G((CCAMH*C0S(P0LR7/RADI AN))**2 

1 ♦(C6ANV»SIN(P0LR2/R4DIAN) )«*2) 

CGAM I xA I MAG(CGAM) 

IF  ( CGAMI  .6T>  0>0  ) GOTO  51 
C6AMxCNPLX(  REAL <C gam)  >3«  1416^CGANI  ) 

51  C6AMxCEXP(  CGAM  > 

RHOREF  « CaBS(CGAM) 

PHIREF  X AIMAG(CL06(CGAM)} 

TEMGI  X (2.*xKPAR*SI6MAH*SINPS| )**2 
XMUR  X EXP(*TEM01/2>) 

Call  gain(1iitar>8v) 

CALL  OAIN(0> I TAR»60) 

FAC1  X CAaS(1**3V/8D*RM0REF*DISP*XNUR*CEXP(Cl*(-XK7ER0* 

1 PTHDIF-PHIREF))) 

IF< IMEY.E0.-1)  go  to  10 
22  X hT/H 

XNAT2  X 2.*(S0RT(2.*RE«CHT)  ♦ S0RT<2.«8E«CHfi) )/XL 
CALL  UFUN(22»CA.CU2) 

FAC2  X 2.«S0RT(PI«XNAT2)«EXP(-XIMCA«XNAT2)»CABS(CU1»CiJ2) 
CALL  I NTER(0iFAC1iXNAT1tFAC2>XNAT2»FAC»XNAT) 

RETURN 

10  FAC  X fACI 

RETUNN 
40  CONTINUE 

FAC  = 1.E-20 

RETURN 

END 


SU8H0UTI  NE  M4RSmR(SNR»N>F1  .MASE»PN) 

C 

C INPUTS  ARE  --  SNR*  SICNtL-T0-N0l5C  '!AT!3  -- 
C N*  NUMBER  OF  pulses  IN7EGRATE0  -- 

C fa.  false  alarm  PROaABlLin.  CXPRCLCLL  :S  -cSUJTl  VILJ;  of  PU/.EI. 

C OF  TEN  (E.O..  FA  X 8.  MEANS  10.*»(-e«)  FALSE  ALARY  PRU3AEILITY  -- 

C KASE.  SWERLING  FLUCTUATION-  MCOEl.  MIIH  MASE  x t FOR  NONFLUCTUATING 


29000  C OUTPUT  PN  IS  PR03A3ILIT?  Jf  3EI£-;rij:j 

29100  C 

29200  C BASED  ON  PROGRAM  MfilTTEN  ATJHU  APPLIED  PHYSICS  LABORATORY.  NAMED 

29300  C SUBROUTINE  MARCUM.  MODIFIED  AT  NRL  BT  L«  V.  BLAME.  THIS  VERSION 

29401  C DATED  APRIL  1971 

29500  C APL  VERSION  DEFINED  FA  AS  FALSE  ALARM  NUMBER  (MARCUM  CONCEPT). 

29600  C MIL  NOD  CHANGED  THIS  TO  FALSE  ALARM  PROBABILITY  (AS  DEFINED  ABOVE) 


29700  C SOME  OTHER  CHANGES  ALSO. 
29800  C 
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2»9M 

00U8LE  PRECISION  ENPRi YBPR>6«MPR«PY8tHi T0 • 

3t9tt 

DOUBLE  PRECISION  0C4N>  0EV«L»  SUHL08*  SUHL 

3fiat 

C 

3«2H 

C 

CONPUTE  N4RCUM-SNERLIN0  OETECHON  PROMBIL 

sasaa 

c 

3*4ff 

c 

3«5ta 

NODfc*1 

3MM 

c 

IF  NODE  IS  U CONVER1  FA  TO  HEAN  EXPONENT 

3«7M 

c 

PROBABILITY  RATHER  THAN  MARCUM  FALSE-ALARM 

3t$»§ 

c 

3f9H 

IF  (MODE)  800>  800>  900 

31000 

900 

FAN  =OLOG10(OLOO(*5O0)/OLOO(  1*-( 10*O0)**(  - 

31100 

60  TO  905 

31200 

800 

FAN  ■ Fa 

313M 

c 

314«« 

c 

TEST  INPUTS 

3isa« 

c 

316M 

905 

IF(N)  99.99.2 

3i7te 

2 

IF(FA)99.99.3 

318«l 

3 

IF(KASE)  99.4.4 

31901 

4 

IF(KAS£*4)  5.5.99 

3299« 

c 

321I0 

c 

ESTIMATE  bias  level 

32209 

c 

32300 

5 

ENPR  s 0. 

324f0 

6 

ENPR  > FAN 

32590 

EN  = N 

32600 

YBPR  = 0. 

32700 

IF  (nPREV  .EO.  N .and.  FAPREV  .EC.  FA)  60 

32800 

IF(N-12)  7.7.8 

32900 

7 

YBPR  = EN*(1.*2.2*ENPR/EN««((2.D0/3.O0)*.0 

33000 

GO  TO  11 

33100 

6 

YBPR  « EN«(  1.*1.3«ENPR/EN»«(.5*.'311»EMPR)) 

33200 

c 

33300 

c 

compute  bias  level 

33400 

c 

33500 

11 

ENPR  > 10.*»ENPR 

33600 

6AMPR  * OGAM(YdPn.N- 1 ) 

33700 

PYB  = .5««(  1./ENPR) 

33800 

SUNL  = SUMLOG(N-I) 

33900 

iF(GAMPR-PYe)  10.12.12 

34000 

10 

H « .01 

34  100 

60  TO  14 

34200 

12 

H ■ -.01 

34300 

14 

Y0  s YBPR 

34400 

E0  = 0£VAL(Y«.N-1.SUML) 

34520 

16 

Y 1 - r 3 ‘ p 

34600 

El  * oeval(yi.n-i.suhl) 

34700 

STEP  : GAPPR  ♦ H«(C^*E1)/2. 

34800 

IF(0S|  GN(  1.O0.STEH-PYB)-OSl  GN(  1.O0.H))  16. 

34900 

18 

Y0  • Y1 

35000 

E0  = El 

35100 

6AMPR  • STEP 

35200 

GO  TO  16 

35300 

20 

IF(H)  22.24.24 

35400 

22 

Yd  s Y1  - H»(PT8-STEP)/(C4MPR-ST£P) 

35500 

GO  TO  30 

35600 

24 

YB  » Yf  ♦ H«(PTB-GAMPR)/(SIEP-0AMPR) 

35700 

30 

BIAS  : YB 

35800 

777 

YB  ■ BIAS 

35900 

NPREV  * N 

36000 

FAPREV  = FA 

36100 

c 

I 

; J 


: i 
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362»l 

C 

select  m-s  case 

36  3«« 

C 

364«t 

X = SNR 

36Sfl« 

K * KAS£*1 

366M 

GO  TO  (1ttf200f 3t0*400>500)> 

367ft 

C 

aeetf 

c 

CASE  0 

36911 

c 

37ttf 

100 

SUM  : 0. 

371M 

c 

P4TCN  to  AXOlO  EXP  OVERPLO0 

37290 

IF(SNR  •LT>  60*)  GO  TO  101 

3 7301 

PN  * 1* 

3.<7400 

RETURN 

376tt 

101 

CONTINUE 

37600 

P B EN»X 

37700 

IF(TB-P-CN)  150*102*102 

37609 

102 

MS  = -(EN*1.)/t*  ♦ $ORT(((EN 

37909 

MS  B M*Xt(KS*9) 

36000 

GS  B 1«-0AN(r6*KS*N-1*TN) 

31100 

T5  • EVAL(P*KS)*6S 

36200 

6-65 

36300 

K ■ MS 

30400 

TERM  = IS 

36600 

TL  » IN 

36600 

lit 

TEMP  B SUMbTERM 

36  700 

IF(SUM-TEMP)  112*116*116 

36600 

112 

SUM  * temp 

36000 

lf(H)  116*116*114 

39000 

114 

TERM  B IERM*FLOAT(M)b(G-TL)/ 

39100 

6 B G-TL 

39200 

K B M-1 

39300 

TL  = TL»FL0AT(M*N)/T8 

39400 

CO  TO  110 

39500 

116 

IL  * 1NbY0/FLOAT(KS*N) 

39600 

M B MS*1 

39700 

6 B 6S*Tl 

39600 

TERM  B tSBpB6/(6SBFL0AT(M)) 

39900 

120 

TEMP  B SUM»T£RM 

40000 

IF(SUM-TEMP)  122*190*190 

40100 

122 

SUM  B temp 

40200 

TL  » TL»r8/FL04I(K*N) 

40300 

K B 

40400 

TERM  B TtRMBpB(G*lL )/(G«FLOA 

40600 

6 B G*TL 

40600 

CO  TO  120 

40  700 

150 

MS  = -1*  - EN/2.  ♦ SORKENbb; 

40600 

MS  bMAX0(KS*0) 

40900 

GS  = G4M(Td*MS*N-1 *TN) 

41000 

IF<GS)  174*  174*155 

41100 

155 

TS  B EVAL(P*MS)«CS 

41200 

G B GS 

41300 

TERM  B TS 

41400 

K B K$ 

41500 

TL  • TN 

41600 

160 

TEMP  B SUM*-TERM 

41700 

IF(SUM-TEMP)  162*166*166 

41800 

162 

SUM  s temp 

41900 

IF(K)  166*166*164 

42000 

164 

TERM  B TERMbFLUAI(M)b(6*TL)/ 

42100 

6 B 6*TL 

42200 

TL  B TL*FL0AI{K*N-1)/Y8 

42300 

M B K-1 

42400 

GO  TO  160 
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42  SM 

166 

TL  .*  I«(«T8/FL04T(HS*N) 

426«« 

K * KS*1 

42Tff 

6 « eS-TL 

42SM 

TERN  ■ IS*P*0/(GS*9(.04T(K)) 

429M 

179 

TEMP  • SUM  * TERM 

43Mt 

1F<S0M-TEMP)  172f174«174 

431«« 

172 

SUM  K TEMP 

4 32ff 

TL  « TL«TB/FL0*T<M*N) 

433H 

TERM  » TEHM«P*(0-Tl)/{6»FL04T(M*1)) 

434»« 

6 ■ 0-TL 

43SM 

M * M*1 

436M 

60  TO  179 

43TH 

174 

SUM  : 1*-SUM 

43«M 

189 

PN  c SUN 

439«e 

60  TO  99 

44M9 

C 

441«f 

C 

C4SE  1 

4429» 

c 

44399 

299 

IF(n-I)  210t2l9t229 

44499 

219 

PM  * EXP( -TB/( 1.*X)) 

44S99 

60  TO  99 

44690 

220 

TEMP  » 1.  * 1»/(EM«X) 

44709 

PN  « 1.  • 04M(Y«tN-2»0UM)  ♦ EXP((EN-1.)' 

44899 

1 •Gm(r8/i£np 

44999 

60  TO  99 

45999 

c 

45199 

c 

C4SE  2 

45299 

c 

45399 

399 

IF(N-I)  319019>329 

45409 

319 

PM  » £XP(-TB/(  1»*X)) 

45599 

60  TO  90 

45699 

329 

PN  : 1«  - 6AM(ra/( 1««X)tN-1*0UM) 

45799 

60  TO  99 

45899 

c 

45999 

c 

CASE  3 

46999 

c 

46199 

499 

|F(N-2)  410>4?9i439 

46299 

419 

PM  = ( 1.*2.»X«YB/(X*2.)**2)«EXP(-2.«YB/ 

46  399 

60  TO  99 

46499 

4?9 

PM  e { 1.fY6/( 1.*X))«EXP( -Y8/( T»*X)> 

46599 

60  TO  99 

46899 

439 

C = 2./(2.*EM«X) 

46  799 

0 * 1.-C 

46899 

IF(YB*0*EN)  449>459t459 

46999 

449 

SUM  : 9. 

4 7999 

term  = 1. 

47199 

J * N 

4 7299 

442 

TEMP  3 SUM»TERM 

47399 

IF(SUM-TEMP)  444i446*446 

47499 

444 

SUM  < TEMP 

47599 

TERM  X TERM*YB»0/FL0»T( J) 

47699 

J » J»1 

47799 

GO  TO  442 

4 7899 

446 

PN  X 1.  - 6*M(YBiN-2«0UM)  ♦ C«Y8«EV»L(T 

47999 

1 * DxEV*L(T0iN-1)x(  f.*C«Y8-(EN-2 

48999 

60  TO  99 

48199 

459 

PM  X 1.  . 64M(YBiN-3<0UM)  * YB*EV4L(YBi 

48299 

1 ♦ eXP(-C*Yfl-<EN-2.)*4L06(0))*(  1 

48399 

2 •64M(TB«0tN*3tDUM) 

48499 

60  TO  99 

48599 

c 

48699 

c 

CASE  4 

48  799 

c 
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'488«a 

48888 

48888 

49188 
48288 
49388 
49488 
49588 
49688 
49788 
493  88 
49988 
88888 
58188 
58288 
58388 
584  88 
58S88 
58888 
58788 
58  8 8 8 
58988 
51030 
51100 
51288 
51300 
51488 
51500 
51688 
51788 
51808 
51908 
52000 
52100 
52280 
52308 
52488 
52508 
52609 
52700 
52888 
52908 
53888 
53188 
53280 
53388 
5 3480 
53508 
53600 
53780 
53880 
53900 
54088 
54100 
54200 
54300 
54400 
54580 
54688 
54  780 
54808 
54  988 
55008 


688  SUM  ■ 8. 

C • 2./(2.*K) 

0 • 1«-C 

0 > C/D 

P ■ C*T8 

MS  ■ < 3. •£>(♦<  TB«0)  )/2. -SO«T((eM-1.*(T8«0))  ••2/4. ♦OrB»0)«(EM*1»)) 
MS  • NIN0(MStN) 

MS  s HAX8(MS>8) 

M • NS 
J * H-MS 
FHS  > NS 
K • HIN8(HSiN) 

IF(yB-EN^(1..0>)  S58>581»581 

581  eS  • !•  - 64H(P.2^N-1-KS.TN) 

If(eS)  S26.526.5P2 

582  IS  « EXP(FKS^4L00(C).(EN-FKS)^AL0G(0)«SuML06(N)-SUHL06(KS) 

1 -SUFL06(J)44l06(GS)) 

G • OS 
TERM  « IS 
TL  » IN 

510  TEMP  : SUM. TERN 

IE(SUM-TEMP)  512.516.516 
512  SUN  = TEMP 

IF(N)  516.516.514 
514  TL  » TL*P/FL0*T(2^N-N) 

TERN  * TERN^FL0*T(N)*(G+TL)/(0^FL0*T(N'K.1)^6) 

G • G.TL 
M » H-1 
GO  TO  510 

516  IP(NS-N)  518.526.526 

510  TERN  = TS.0^FL0*T(N-KS)^(GS-TN)/(FL0»T(NS.1)^CS) 

G > GS-TN 

TL  * TN*FLO» T(2^M- 1-KS)/P 
N = KS.1 

520  TEMP  s SUN.TEHM 

lE(SUN-TEMP)  522.526.526 
522  SUM  3 TEMP 

IP(M-N)  524.526.526 

524  TERN  . TERN.0«FL0*T(N-K)^(6-IL)/(FL0*T(N.1)^G) 

G • G-TL 

TL  * IL^FL04T(2^N- 1-K)/P 
N 3 K.1 
GO  TO  528 
526  PM  ■ SUN 
GO  TO  98 

558  OS  3 0*H(P.23N-1-NS.TM) 

IF(8S)  976.S76.S62 

552  TS  3 EXP(FNS3tL0G(C).(EN-FMS)34L00(0>*SUML06(N)-SUHL0C(NS) 

1 -SUMlOG(J)*4LOG{GS)  ) 

6 3 GS 

TERM  3 TS 
TL  3 TN 

568  TEMP  3 SUN.TEHM 

IF(SUM-TENP)  S62.S66.666 
562  SUM  3 temp 

IF(K)  566.566.564 
564  TL  3 TL.P/FL0*T(2.N>H) 

TERM  3 TEkN.FL0*T(K)3(G-TL)/{3»FL0AT(M-N.1).G) 

G 3 G-TL 
N ■ N-1 
CO  TO  568 

566  IF(NS-N)  Sba>576.576 

568  TERN  3 TS«O»FL3»T(N-NS).(6S.Tm)/(FL0*T<NS.1>«C5) 
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'5S1M  0 > IS^TN 

5S2M  TL  ■ TN*PLa*T(2«N-1>NS)/P 

5S3««  K « KS*I 

S54««  57f  TEMP  s SUH*T£RM 

556ft  IF(SUH-IEMP)  ST2»57C>57G 

S56tf  572  SUM  > TEMP 

557ff  IF(K-N)  S74i576>576 

SStff  57*  TERM  * re«M«0«Ft04I(M-K)«(C-*TL)/(FLi)AT(K»1)»0> 

SSttf  6 < G«TL 

56Nf  TL  « U*FL0*T(2*N-1-K)/f 

Stiff  K ■ K«1 

S62ff  00  TO  67f 

Staff  576  FN  = 1>-SUM 

S64ft  00  TO  9f 

StSff  c 

S8609  C SET  PMOe*StUTt 

567ft  C 

Sttft  9f  IF(PN)  91>54<92 

S69if  91  PM  = f> 

S7fff  00  TO  94 

571ft  92  IF(Pn-1*}  34>94>93 

572tt  93  PM  « 1< 

573ff  94  REIIMN 

S74ff  C 

S7SM  C ERROR  MESSAGE  FOR  BAD  IMPUTS 

S76ff  C 

577ff  99  TTPE  9t  NtF*  »SMR*HASE 

57tft  9 FORMAT  (iHt  /5fH  UNREASONABLE  CALL  SEQUENCE  TO  MARCUHi  7ER0  RESULT 


579tt 

Sttft 

Stiff 

St2ff 

Staff 

SB4tt 

585ft 

setff 

58  7ff 
588ft 
589ff 
59ftf 

591ff 

S92ff 

S93ff 

594ft 

595tt 

59ttf 


597ff 

69tff 

599ff 

tffff 

tfiff 

8f2ff 

ff3ff 


tftff 

6f7H 

tffff 


tf9ff 

tlfff 

tiitt 

6l2ft 


1 7HS  GIVEN  //4H  N * It'SXtSHFA  > E If *8 'SXiSNSNR  > 

2 E1f*6>5X»6NKA$E  - 18) 

PN  « f. 

BIAS  * f. 

RETURN 

END 


FUNCTION  DGAM(8iN) 

00U9LE  PRECISION  SUMt  rERM»TENP«F J>OOAH»  OEVAL>  B»  SUNltSUHLOO 
C INTEGFAL  ■ T-(SUH>  J>f  TO  N>  OF  EXP(  J«A LOG(O)  •B-ALOG(  NFAC  > 

Sum  * t« 

K ■ 8 

IF(K-N)  18ft2ff»2ff 
1ft  J » M»1 

SUML  s SUMLOG(J) 

TERM  > OEVAL(B»J»SuML) 

If  TEMP  3 $UM«TERH 

IF(SUN-TEHP)  15»2fi2f 

IS  SUM  s temp 

j » J*1 
f J « J 

TERM  • TERM*B/FJ 
GO  TO  It 
2t  DOAN  s SUM 
RETURN 
2ff  J • N 

SUML  ■ SUHLOO(J) 

TERM  I DEVAL(B* J'SUML) 

3f  temp  ■ SUM«TERM 

IF(SUH-TEMP)  35»4t>4r 
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• UM 

IP<J*1>  40>36*36 

6 ISM 

30 

FJ  • J 

SIStt 

1ERH  > 1ERN*FJ/0 

61700 

J * J-1 

61SM 

60  TO  30 

619M 

40 

064M  ■ 1*-SUN 

saatf 

REIUHN 

6?1M 

62200 

62300 

END 

62400 

62500 

62600 

62700 

FUNC1I0N  0EV4L  (TtN'SUHL) 

62600 

DOUBLE  PRECISION  XP0N»EN>0EV4L>  r>SUML 

62900 

XPON  ■ -T 

63000 

It-(N)  20i20t10 

63100 

10 

EN  = N 

63200 

XPON  s XP0N*£N«0L0G{T)-SURL 

63300 

20 

0EV»L  * DEXP(XPOH) 

63400 

RETURN 

63S00 

63600 

END 

63700 

63600 

63900 

64000 

64100 

c 

FUNCTION  GAM(6iN>TN) 

64200 

C 

SINGLE  PRECISION  VERSION  OF  OCAM 

64300 

SUN  * 0. 

64400 

K « B 

64S00 

IF(K-N)  100t260>2e0 

64600 

100 

J * N+1 

64700 

TERN  « EVAL(8»J) 

64800 

TN  = TERN«FLOAT( J)/B 

64900 

10 

TENP  s SON*T£RN 

6S000 

IF(SUN-IENP)  15f20»20 

65100 

15 

SUN  = TENP 

65200 

J » J*1 

65300 

FJ  * J 

65400 

TERN  = T£RN*B/FJ 

65500 

60  TO  10 

65600 

20 

GAN  : SUN 

65700 

RETURN 

65800 

200 

J 3 N 

65900 

TERN  * EVAL(B»J) 

66000 

TN  * TERN 

66100 

30 

TENP  = SUN*TERN 

66200 

IF(SUM'TENP)  35>4|t40 

66300 

35 

SUN  3 TENP 

66400 

IF(J-1)  40«36>36 

66500 

36 

FJ  ■ J 

66600 

TERN  3 TERN*FJ/9 

66700 

J 3 J-1 

60000 

60  TO  30 

66900 

40 

GAN  3 1*-SUH 

RETURN 

END 

07200 

07300 

07400 

.67SM 
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• 7«ft 

• T7M 

FUNCTION  EVAL(TfN) 

• 78M 

XFON  ■ -T 

670H 

IF(N)  28«28t18 

68II8 

18 

EN  > N 

68118 

XPON  c XP0N«EN*AL06(T)-SUHL06(N) 

68288 

28 

EVAL  > EXP(XP0N1 

66388 

RETURN 

68480 

66588 

66688 

END 

68780 

68880 

68980 

69880 

FUNCTION  SUMLOG(N) 

69188 

OOUUlE  precision  Ai  S>  SUNLOG 

69288 

DIMENSION  A(  1080) 

69380 

DATA  DUNA/8>/«DUMe/0«/ 

69488 

NHAX:1880 

69588 

IF(OUMA-OUMB)  20>10i20 

69688 

10 

DUMA  = 1. 

69788 

DUMB  2 »• 

69880 

NLAST  = 1 

69908 

A(  1)  > 0. 

70088 

20 

NN  = IAB$(N) 

78108 

IF(NN-I)  30>30>40 

78208 

30 

SUMLOG  : 8« 

70308 

RETURN 

78408 

40 

IF(NN-NLAST)  S0t58>60 

78588 

50 

SUMlOG  = A(NN) 

78600 

RETURN 

78788 

60 

K s NLAST^I 

78680 

IF(NN-NHAX)  70>70i80 

78988 

70 

DO  7?  l«KfNN 

71880 

72 

A(l)  3 A(l-1)  ♦ DLOG(FLOAT( 1 )*1«D0) 

71108 

NLAST  X NN 

71200 

GO  TO  58 

71308 

88 

IF(NLAST-NMAX)  82>90>90 

71488 

82 

DO  84  IxKiNMAX 

71580 

84 

A(l)  X A(l-1)  * DLOG(FLOAI( 1 )*1>D8) 

71600 

NLAST  X NMAX 

71700 

90 

B = A(NMAX) 

71808 

K X NMAX*1 

71900 

DO  92  |xM>NN 

72080 

92 

B * B * DLOG(FLOAT( 1 )«1.D0) 

72100 

SUMLOG  = B 

72288 

RETURN 

72308 

72480 

END 

•K/F 

J(W  7i  USEN  C3trt747]  LOGGED  OFF  77714  1tS8  8-JUL-75 
SAVED  ALL  FILES  (618  BLOCKS) 

RUN7IME  S4<68  SEC 
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Appendix  B 

SUBROUTINE  MTIMOD 
VV.  B.  Gordon 

B.1  INTRODUCTION 

A Moving  Target  Indicator  (MTI)  system  is  a signal  processor  that  distinguishes  moving 
targets  from  clutter  by  virtue  of  the  differences  in  their  spectra.  The  simplest  MTI  processor, 
the  single  delay-line  canceler,  obtains  the  difference  between  two  successive  echoes  from 
the  same  location;  reflections  from  stationary  objects  cancel,  whereas  reflections  from 
moving  targets  produce  fluctuating  signals.  I'hus  MTI  canceler  systems  maximize  signal- 
to-clutter  ratios  only  for  highly  correlated  interference;  uncorrelated  interference,  such  as 
receiver  noise,  is  not  affected  by  the  MTI  processor. 

MTIMOD,  the  MTI  processor  model  described  here,  is  based  up  Chapters  6 and  9 of 
Radar  Design  Principles,  by  Nathanson,*  but  has  been  generalized  by  permitting  the  use 
of  clutter-rejection  filters  not  discussed  by  Nathanson.  It  is  assumed  that  the  radar  system 
contains  a matched  filter  for  the  individual  pulses  to  enhance  the  signal-to-noise  ratio  and 
that  the  clutter-to-noise  ratio  is  large. 

MTIMOD  predicts  MTI  performance  in  detecting  a target  located  in  a background  of 
precipitation  and  chaff  by  calculating  the  clutter  power  input  to  each  of  one  or  more 
specified  clutter-rejection  filters,  the  clutter  power  output  from  each  clutter-rejection 
filter,  and  the  signal  power  output  from  each  clutter-rejection  filter.  The  model  includes 
the  following  often  neglected  aspects  of  clutter  analysis,  as  emphasized  by  Nathanson: 

1.  Precipitation-  and  chaff-clutter  spectra  depend  on  a wind-shear  effect,  the  result 
of  change  in  wind  velocity  with  altitude. 

2.  The  average  clutter  velocity  itself,  as  well  as  fluctuations  about  this  average,  im- 
poses limitations  on  MTI  effectiveness. 

3.  Clutter  lying  beyond  the  unambiguous  radar  range  further  degrades  MTI 
performance. 


B.2  TYPES  OF  CLUTTER  REGIONS 

For  purposes  of  MTI  processing,  the  environment  is  divided  into  clutter  regions  for 
both  rain  and  chaff.  The  geometrical  and  physical  properties  of  the  regions  are  specified 
by  the  user  under  the  constraints  of  the  model.  Three  geometrical  configurations  of 
clutter  regions  are  allowed: 


•F.  E.  Nathanson,  Radar  Design  Principles,  McOraw  Hill,  New  York,  1969. 
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Type  1 (band).  This  region  is  defined  by  specifying  a lower  and  an  upper  height  level 
above  the  Earth’s  surface.  The  type  1 clutter  region  lies  everywhere  over  the  Earth’s  surface 
between  these  two  boundaries. 

Type  2 (half-band).  This  region  is  defined  by  specifying  a lower  and  an  upper  height 
level  as  in  type  1,  with  the  addition  of  a boundary  line,  determined  by  a point  through  which 
it  passes,  and  a normal  to  the  line  pointing  outward  from  the  region.  The  type  2 clutter 
region  lies  over  the  portion  of  the  Earth’s  surface  between  the  two  height  boundaries  that 
is  to  the  side  of  the  boundary  line  away  from  the  normal. 

Type  3 (cylinder).  This  region  is  deHned  by  specifying  a lower  and  an  upper  height 
level  as  in  type  1,  with  the  addition  of  the  center  and  radius  of  a disk  on  the  Earth’s 
surface.  The  type  3 clutter  region  lies  in  the  cylinder  formed  over  the  disk  between  the 
specified  height  levels. 


B.3  TYPES  OF  CLUTTER-REJECTION  FILTERS 

MTIMOD  accepts  four  types  of  clutter-rejection  filters.  The  first  three  types  are 
actually  special  cases  of  the  fourth,  more  general,  type,  and  are  included  to  reduce  input 
required  for  the  simplest  and  most  commonly  used  filters.  The  four  filter  types  are  as 
follows: 

Type  1 (series  of  simple  delay-line  cancelers) 


N-l 

S(f)  - 2]  — )(-l)*S(f  + feT). 

fc=o  ' « / 

A sequence  of  N consecutive  signals  S(t),  each  separated  in  time  by  T,  is  summed  by  the 
filter  using  binomial  coefficients. 

Type  2 (generalized  series  of  simple  delay-line  cancelers) 

N 

S(t)  -*  2]  AkS[t  + (fe-  1)T)  . 

A sequence  of  N consecutive  signals  S(t),  separated  in  time  by  T,  is  summed  by  the  filter 
using  weighting  factors  Ak,  specified  by  the  user. 

Type  3 (de'.ay-line  cancelers  with  variable  sampling  rate) 

N 

Sit)  -*  2]  AkSit  + B^T). 

h‘l 

A sequence  of  N signals  Sit),  the  feth  signal  sampled  at  after  the  first',  is  summed  by 
the  filter  using  weighting  factors  Ah-  The  sequences  Afi  and  B/g  are  specified  by  the  user. 


1 
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Type  4 (delay-line  cancelers  with  staggered  PRF) 

N / ■''  \ 

Sit)  /IfeS  f + 2]  • 

*=i  V j=i  / 

A sequence  of  N signals  S(f)  is  summed  by  the  filter  using  weighting  factors  Afe.  The  Af 
repetition  intervals  Tj  combine  to  form  the  feth  sample  at  BkjTj.  The  sequences  Aft 
and  Bfgj  are  specified  by  the  user. 


I 


B.4  RAIN-  AND  CHAFF-CLUTTER  INPUT 

MTIMOD  requires  the  current  target  position  and  velocity  as  calculated  by  SURSEM. 
The  model  has  the  capability  to  calculate  a given  number  of  target  positions  at  equally 
spaced  intervals  along  the  target  track  and  perform  MTI  signal  processing  at  each  position, 
if  desired;  however,  in  its  present  configuration,  SURSEM  will  call  MTIMOD  individually 
for  MTI  processing  at  each  target  position  it  determines. 

Given  an  actual  target  position,  MTIMOD  calculates  a number  of  target  “pseudoposi- 
tions.” These  pseudopositions  are  locations  on  each  radar  antenna  pattern  sidelobe  at  the 
target  range  and  at  the  second-time-around  position  corresponding  to  both  the  actual 
target  position  and  the  sidelobe  positions.  Calculations  are  performed  for  each  target 
position  (either  real  or  pseudo,  as  defined  above),  and  henceforth  the  general  term  “target 
position”  will  refer  to  any  one  of  the  2(1  + number  of  sidelobes)  positions  described. 

Each  target  position  lies  in  at  most  one  rain-clutter  region  and  one  chaff-clutter 
region.  The  rain-  and  chaff-clutter  regions  are  taken  to  be  distinct  and  are  defined  sep- 
arately even  if  their  geometric  boundaries  are  the  same. 


For  a given  target  position,  MTIMOD  determines  the  rain-clutter  region,  if  any,  and 
the  chaff-clutter  region,  if  any,  in  which  the  target  lies.  The  rain-clutter  power  input  to  a 
clutter-rejection  filter  resulting  from  the  target  lying  in  the  rain-clutter  region  is  given  by 


RPOWIN  = (3.7729X  10-27) 


PG^UA0)(A<f>)T' 

X2r2 


Z 


where 


P = 
G = 

L = 
A0,  A<t>  = 

T = 

X = 


peak  pulse  power  (watts) 

“equivalent  gain”  of  the  sidelobe  (or  main  lobe)  corresponding  to  the 
given  position 

lumped  system  losses 

the  equivalent  vertical  and  horizontal  beamwidths  (degre^) 
pulse  width  (microseconds) 
wavelength  (meters) 


j 


i 

I 


I 

I 
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R = range  (kilometers) 

Z = rainfall  reflectivity  factor,  usually  taken  to  be 
Z = RCOEF  X 


where  RRATE  is  the  rainfall  rate  (millimeters  per  hour)  in  the  selected  rain-clutter  region 
and  RCOEF  and  REXPO  are  inputs,  usually  taken  to  be 

RCOEF  = 200.  , 

REXPO  = 1.6  . 

The  chaff-clutter  power  input  to  a clutter-rejection  filter  resulting  from  the  target’s 
lying  in  the  chaff-clutter  region  is  given  by 

„ PG2L(A0)(A(»tX'‘1 

CPOWIN  = (1.3606X  10-8)  , 

R2  J 

where  the  parameters  are  the  same  as  those  defined  for  rain  clutter  and  DN  is  the  number 
of  dipoles  per  unit  volume  (cubic  meters)  in  the  selected  chaff-clutter  region. 


B.5  RAIN-  AND  CHAFF-CLUTTER  OUTPUT  FROM  CLUTTER-REJECTION  FILTER 
A general  clutter  filter  (type  4)  has  the  form 

F / \ 

s(f)  ^ ^ A/,s  f + 21 

\ >=i  / 


and  contains  filter  types  1 through  3 as  special  cases.  For  this  general  filter  type  the 
rain-  or  the  chaff-clutter  output  (normalized  for  a clutter  input  of  unit  strength)  is  given 
by 

N N r Af 

FACOUT  = 21  I]  2Z  (Bjr-Bkr)Tr  . 

j-1  k=l 


The  function  p = p(jc)  is  defined  by 


p(x)  = cos  47T  — ^ 

I ^ 


-f-rf 


where  Vq  is  the  mean  rain-  or  chaff-clutter  velocity  (meters  per  second),  equal  to  zero  for 
clutter  locking,  and  is  the  mean  clutter  velocity  spread  (meters  per  second): 
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= o2(shear)  + (turbulence)  + o2(beam) 

+ o2(fall)  + o2(antenna  motion)  . 

There  are  five  independent  mechanisms  that  contribute  to  oj , the  variance  of  the 
rain  or  of  the  chaff  clutter  velocity,  as  indicated  above. 

Wind  shear.  The  change  in  wind  speed  with  altitude  results  in  a distribution  of  radial 
velocities  over  the  vertical  extent  of  the  beam,  so  that 

r RAINGRAD  ] 

o(shear)  = (5.20457  X 10'3)  X or  [•  X RANGE  X DELTHETA 

[CHAFGRADJ 

I 

where  (RAINGRAD  or  CHAFGRAD)  is  the  wind-speed  gradient  measured  at  the  lowest 
height  level  of  the  clutter  region  (5.7  m/sec-km  nominal  value),  RANGE  is  the  slant  range 
to  clutter  (kilometers),  and  DELTHETA  is  AO,  the  half-power  vertical  beamwidth  (degrees). 

Beam  broadening.  The  finite  width  of  the  radar  beam  causes  a spread  of  radial  veloc- 
ity components  of  the  wind  when  the  radar  is  looking  crosswind,  so  that 

a(beam)  = (5.20457  X lQ-3)  Vq  X DELPHI  X sin  P 

where  Vq  is  the  mean  clutter  velocity  (meters  per  second),  DELPHI  is  A(p,  the  half-power 
horizontal  beamwidth,  and  P is  the  angle  between  the  line-of-sight  and  wind-velocity 
vector. 

Turbulence.  Fluctuating  currents  of  the  wind  cause  a radial  velocity  distribution 
centered  at  the  mean  wind  velocity  ; 

r RAINTURB  I 

o(turbulence)  = -j  or  > (1.0  m/sec  nominal  value) . 

[CHAFTURBJ 

Fall  velocity  distribution.  A spread  in  the  fall  velocities  of  the  reflecting  particles  re- 
sults in  a spread  of  velocity  components  along  the  beam,  so  that 

'rainfall] 

o(fall)  = • or  > X sin  (elevation  angle) 

[CHAFFALLJ 

where  (RAINFALL  or  CHAFFALL)  is  the  mean  fall  velocity  (1.0  m/sec  nominal  value). 

Antenna  rotation.  The  angular  rotation  of  the  antenna  results  in  spectrum  broadening 
of  the  clutter  echoes,  giving 
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E9 


a(antenna)  = (0.7897854)  X AR  X XX 


1 

DELPHI 


where  AR  is  the  antenna  rotation  rate  (rpm),  X is  the  radar  wavelength  (meters),  and 
DELPHI  is  A<t>,  the  half-power  horizontal  beamwidth. 


It  is  always  assumed  that  the  target  and  second-time-around  pseudopositions  are 
illuminated  by  the  full  number  of  pulses,  N,  required  by  the  filter. 


B.6  SIGNAL  POWER  OUTPUT  FROM  CLUTTER-REJECTION  FILTER 
For  the  general  filter  described  earlier. 


N 

S{t)  Y]  AkS 

k=i 


M 

> = i 


the  signal  power  output  (normalized  for  a signal  input  of  unit  strength)  is  given  by 


SIGFAC 


N 


Ajexp\2mfa  Z]  BjkT^ 


M 

L 

fe=i 


where  is  the  doppler  frequency  of  the  target. 


B.7  OUTPUT 

The  output  from  MTIMOD  consists  of  the  total  (rain  and  chaff)  clutter  power  input 
to  each  clutter-rejection  filter,  the  total  (rain  and  chaff)  clutter  power  output  from  each 
clutter-rejection  filter,  and  the  signal/power  output  from  each  clutter-rejection  filter,  for 
each  specified  actual  target  position.  At  present  the  model  will  accept  up  to  50  rain-  and 
50  chaff-clutter  regions  each  of  types  1,  2,  and  3.  A total  of  10  clutter-rejection  filters 
may  be  defined  for  a run.  Once  the  clutter  regions  and  filters  have  been  defined  and  an 
actual  target  position  specified,  MTIMOD  determines  the  corresponding  target  pseudo- 
positions described  earlier;  together  with  the  actual  position,  these  pseudopositions  be- 
come the  set  of  positions  for  which  the  individual  MTI  calculations  are  made. 

For  each  clutter-rejection  filter  to  be  considered  MTIMOD  computes  the  following 
output,  as  outlined  above,  by  actual  target  position.  Let 

NSL  = number  of  antenna  pattern  sidelobes, 

J = sidelobe  ‘‘pseudoposition”  (J  = 1 for  main-lobe  true  position), 

/ = 1 for  the  first-time-around  position, 

/ = 2 for  the  second-time-around  position. 


B-6 
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Thus  {(/,  J)|l  </<2,  1<J<(1+  NSL)}  indexes  the  set  of  pseudopositions.  Recall 
that 

RPOWIN(I,J)  = rain-clutter  power  input  to  filter  from  (/,-/)th  pseudoposition, 
CPOWIN(I,J)  = chaff-clutter  power  input  to  filter  from  (/,  J)th  pseudoposition. 

The  total  rain-clutter  and  total  chaff-clutter  inputs  from  all  pseudopositions  are 


RTOTIN  = 2]  Z!  RP0W1N(I,J)  , 

J I 

CTOTIN  = Z Z CPOWIN(I,J). 

J J 

Hence  the  total  clutter  input  to  the  filter  due  to  a target  at  the  specified  position  is 

TOTIN  = RTOTIN  -h  CTOTIN  . 


Let 


RFAC(I,J)  = filter  output  from  rain-clutter  input  due  to  (/,</)th  pseudoposition, 
normalized  for  unit  power  input, 

= FACOUT(,gj„)  as  already  defined, 

and 

CFAC  = filter  output  from  chaff-clutter  input  due  to  (/,  J)th  pseudoposition, 
normalized  for  unit  power  input, 

= FACOUT(ghaff)  ^ already  defined. 

The  total  rain-clutter  and  total  chaff-clutter  filter  outputs  from  all  pseudopositions 
are 


RPOWOUT  = Z Z!  RP0W1N(I,J)X  RFAC(1,J)  , 

J l 

CPOWOUT  = Z Z CPOWlN(I,J)X  CFAC(1,J), 

J / 

and  hence  the  total  clutter  output  from  the  filter  due  to  a target  at  the  specified  position 
is 

TCLUTOUT  = RPOWOUT  + CPOWOUT  . 
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The  signal  power  output,  normalized  for  a signal  input  of  unit  power,  from  the 
clutter-rejection  filter  is  given  as  SIGFAC,  which  has  already  been  defined. 

The  required  inputs  from  SURSEM  to  MTIMOD  are  listed  in  Table  B.1-1,  and  the 
MTIMOD  macro  flowchart  is  shown  in  Fig.  B.1-2. 


Table  B.1-1  - Inputs  from  SURSEM  to  MTIMOD 


Symbols  (in  MTIMOD) 


Description 


Dimension 


NUMBER 

INCRE 

TCS 

XT,YT,ZT 

XR,YR,ZR 

VXT,VYT,VZT 

VXR,VYR,VZR 

P 


WX,WY 

H 

MBP 

BWVERT 

BVHOR 

GAIN 

NSL 

(FOR  1 < J<  NSL) 
THEtA(J),PHI(J) 

G(J) 

DELTHETA(J),DELPHI(J) 


Number  of  target  positions 

Time  increment  between  target  positions 

Target  cross  section 

Target  coordinates 

Radar  coordinates 

Target  velocity  components 

Radar  velocity  components 

Peak  pulse  power 

Carrier  frequency 

Pulse  width 

Lumped  system  losses  occurring  in  radar  range 
equation 

Wind-speed  components  at  height  H 
Height 

Elevation  of  main  beam 

One-way  3-dB  vertical  beamwidth  (main  beam) 
One-way  3-dB  horizontal  beamwidth  (main  beam) 
Gain 

Number  of  sidelobes 

Position  of  Jth  sidelobe  with  respect  to  main- 
beam  axis 

Gain  of  Jth  sidelobe 

Vertical  and  horizontal  beamwidths  of  Jth 
sidelobe 

+ W ^0  = latitude  {not colatitude) 


Integer 


m/s 

km 

deg 

deg 

deg 

dB 

Integer 
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GO  TO  1000 

Fig.  B.1-2— MTIMOD  macro  flowchart 
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Fig.  B.1-2  — MTIMOD  macro  Howchart  (Continued) 
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